[Pascal]Kopiowanie pliku i jego odbicie lustrzane

Sprawa wyglada tak mam napisac programik ktory bedzie kopiowal jeden pliczek i zapisywal jego zawartosc w drugim z tym ze bedzie to <ort>odpicie </ort>lustrzanie

Wejsciowy
Apteka
Wyjsciowy
aketpA

bardzo pilne na pon. samo kopiowanie pliku wiem jak napisac ale nie wiem ja zrobic akurat to :/

var czytany, zapisywany : file of char;
 len : longint;
 c : char;

begin

 Assign(czytany, 'abc.txt');
 Assign(zapisywany, 'abc_r.txt');


 Reset(czytany);
 Rewrite(zapisywany);

 len := FileSize(czytany);

 while len > 0 do begin
  dec(len);
  Seek(czytany, len);
  Read(czytany, c);
  Write(zapisywany, c);
 end;

 Close...
end;

jak już robisz w ten sposób to moze byś zapisał najpierw ten ostani znak.
proponuje reapat until przy zabawie z plikami to jest poręczniejsze

repeat..until NIE jest poręczniejsze, bo wykonuje się co najmniej raz, a przecież plik może być pusty :>