Типизированные файлы, записи.

uses crt;
const name='PRIM.DAT';
type
strana=record
            naz:string[20];
            pls:real;
            chs:real;
            end;
fail=file of strana;
procedure Zap(var zp:strana);{ввод данных}
begin
write(' Название: ');readln(zp.naz);
write(' Площадь: ');readln(zp.pls);
write(' Численность: ');readln(zp.chs);
end;
var z:strana;
    f:fail;
    i,k:integer;
    c:char;
begin
clrscr;
assign(f,name);
rewrite(f);
writeln('Введите в файл не менее 10 записей, окончание ввода Esc');
i:=1;
repeat
writeln('Страна ',i);
Zap(z);{ввод}
write(f,z);{запись в файл}
i:=i+1;
c:=readkey;{если Esc и больше 9, то выход, другая клавиша, продолжаем}
until(c=#27)and(i>9);
clrscr;
reset(f);{откроем файл и прочитаем что в нем}
writeln('Записи в исходном файле:');
while not eof(f) do
 begin
  read(f,z);
  writeln(z.naz,' ',z.pls:0:1,' ',z.chs:0:1);
 end;
close(f);
writeln('Введите 5 новых записей и замените ими неверные записи в файле:');
reset(f);
k:=filesize(f) div 2+1;{середина файла}
for i:=1 to 5 do
 begin
  writeln('Страна ',i);
  Zap(z);{вводим данные для замены}
  seek(f,k+i-2);{встаем в середину, движемся 5 раз}
  write(f,z);{записываем}
  seek(f,filesize(f));{становимся в конец}
  write(f,z);{записываем}
 end;
close(f);
clrscr;
reset(f);
writeln('Исправленный файл:');
while not eof(f) do
 begin
  read(f,z);
  writeln(z.naz,' ',z.pls:0:1,' ',z.chs:0:1);
 end;
close(f);
readln
end.