Сформировать новый текстовый файл, записав в него числа из заданного файла в обратном порядке

var f,g:file of char;
c:char;
i:integer;
begin
assignfile(f,'D:\input.txt');
rewrite(f);
assignfile(g,'D:\output.txt');
rewrite(g);
writeln('Vvedite chisla, Okonchanie vvoda chislo 0:');
repeat
readln(c);
write(f,c);
until c='0';
writeln('Text F:');
reset(f);
while not eof(f) do
begin
read(f,c);
write(c,' ');
end;
writeln;
closefile(f);
reset(f);
for i:=filesize(f)-1 downto 0 do
begin
seek(f,i);
read(f,c);
write(g,c);
end;
closefile(f);
writeln('Text G:');
reset(g);
while not eof(g) do
begin
read(g,c);
write(c,' ');
end;
closefile(g);
readln
end.

Uses CRT;
var f,g:file of real;
    c:real;
    i:integer;
begin
assign(f,'D:\input.txt');
rewrite(f);
assign(g,'D:\output.txt');
write('Vvedite chisla, Okonchanie vvoda chislo 0:');
repeat
 readln(c);
 write(f,c);
until c=0;
Close(f);
writeln('Text F:');
reset(f);
rewrite(g);
for i:=(filesize(f)-1) downto 0 do
begin
 seek(f,(filesize(f)-1)-i);
 read(f,c);
 write(c:0:4,' ');
 seek(f,i);
 read(f,c);
 write(g,c);
end;
close(f);
Close(g);
writeln;
writeln('Text G:');
reset(g);
while not eof(g) do
begin
 read(g,c);
 write(c:0:4,' ');
end;
close(g);
readln
end.

Uses CRT;
var f,g:text;
    c:real;
    a:array[1..200] of real;
    i,n:integer;
begin
assign(f,'D:\input.txt');
rewrite(f);
assign(g,'D:\output.txt');
rewrite(g);
write('Vvedite chisla, Okonchanie vvoda chislo 0:');
repeat
 readln(c);
 write(f,' ',c);
until c=0;
Close(f);
writeln('Text F:');
reset(f);
n:=0;
while not eof(f) do
begin
 read(f,c);
 inc(n);
 a[n]:=c;
 write(c:0:3,' ');
end;
close(f);
for i:=n downto 1 do
 write(g,' ',a[i]);
Close(g);
writeln;
writeln('Text G:');
reset(g);
while not eof(g) do
begin
 read(g,c);
 write(c:0:3,' ');
end;
close(g);
readln
end.