Работа с файлами

[malenkaya]

Дан файл целых чисел. Создать новый файл, содержащий те же элементы, что и исходный файл, но в обратном порядке.

[Mad_Cat]

{pascal}
var a:array[1..1000] of integer;
i,k:integer;
f:file of integer;
begin
assign(f,'old_file.int');
reset(f);
k:=0;
while not eof(f) do begin
k:=k+1;
read(f,a[k]);
end;
close(f);
assign(f,'new_file.int');
rewrite(f);
for i:=k downto 1 do
write(f,a[i]);
close(f);
end.

[Biggs]

А если больше 1000?

[Mad_Cat]

А если больше 1000?

То мне в принципе П..левать) эт ТС заботы)

[Zer0]

ну или работать с типизированными файлами)) но думаю тут другой случай

[Serge_Bliznykov]

Какой - "другой" случай?!

Тут же прямо в условии задано, что надо работать с типизированным файлом:

Дан файл целых чисел

я бы сделал через seek обратный цикл чтения файла, а писал во временный (вспомогательный файл).
Примерно так:

var
  ....
  f, g : file of integer;
  i, N. One : Integer;
begin
  Assign(f,'ИмяИсходногоФайла');
  Reset(f);
  Assign(g,'$$$temp.$$$');
  Rewrite(g);
  N := FileSize(f);
  for i:=N-1 downto 0 do begin
    Seek(f, i);
    Read(f, One);  
    Write(g, One)
  end;
  Close(f);
  Close(g);
....

вот, кратко, просто и без использования массивов..