Дан файл f компоненты которого является символы записать файл j компонентов файла f в обратном порядке. через паскаль

type
tfc = file of char;

procedure rev(var inp, outp: tfc);
var
c: char;
begin
if not eof(inp) then begin
read(inp, c);
write(c);
rev(inp, outp);
write(outp, c);
end;
end;

var
f, j: file of char;
begin
assign(f, 'i.txt'); reset(f);
assign(j, 'j.txt'); rewrite(j);
rev(f, j);
close(f);
close(j);
end.