Задача, Задача на файлы в паскале Опции

[ATAMAH]

Надо Каждые N компонент файла F1 переписать в обратном порядке. Число N запрашивается с клавиатуры.

type tFile=file of integer;
procedure vvod (var f:tFile);
var i:integer;
Begin
rewrite(f);
while random(20)<>0 do
 begin
 i:=100-random(50);
 write(f,i);
 end;
close(f);
end;
procedure vivod(var f:tFile);
var i:integer;
begin
reset(f);
while not eof(f) do
 begin
 read(f,i);
 write(i:4);
 end;
close(f);
end;

var f1,f2:tFile;
 i,k,n,p:integer;
 begin
randomize;
assign(f1,'1.dat');
assign(f2,'2.dat');
vvod(f1);
vivod(f1);
writeln;
writeln('enter komponetu');
readln(n);
reset(f1);
rewrite(f2);
repeat
while p<>filesize(f1) do
begin
for i:=n+p downto 1+p do
begin
seek(f1,i-1);
read(f1,k);
write(f2,k);
end;
p:=p+n;
end;
close(f1); close(f2);
erase(f1);
rename(f2,'1.dat');
vivod(f1);
readln;
end.

Но не работает подскажите как можно исправить!! Чтоб заработало!! Плиз

Сообщение отредактировано: ATAMAH - 25.12.2007 14:35

[Ozzя]

У меня есть подозрение, что здесь -

write(f2,p);

ты все время пишешь в одно и тоже место. Seek(f2,...) поставь