Задачи на Record в Pascal'e

[Сержuk]

Во входном файле дан список государств с указанием площади и их столицы.

Австрия         84   Вена
Бельгия         31   Брюссель
Великобритания  244  Лондон
Германия        357  Берлин
Франция         544  Париж
Италия          301  Рим
Греция          132  Афины

Дополнить этот файл пятью новыми записями с клавиатуры, чтобы получить следующее:

Австрия         84   Вена
Бельгия         31   Брюссель
Великобритания  244  Лондон
Германия        357  Берлин
Франция         544  Париж
Италия          301  Рим
Греция          132  Афины
Испания         504  Мадрид
Швеция          449  Стокгольм
Норвегия        324  Осло
Дания           43   Копенгаген
Румыния         237  Бухарест

Найти самую маленькую страну по площади из перечисленного и вывести в выходной файл ее столицу и площадь, должно получиться следующее:

Самая маленькая страна:  Брюссель  31

Код программы:

PROGRAM A9;
USES CRT;
TYPE ZAP=RECORD
     COUNTRY:STRING[16];
     AREA:STRING[5];
     CAPITAL:STRING[11];
    END;
VAR INP,OUT:TEXT; Z:ZAP;
K:1..6; P,MIN:WORD; I,LCO:1..16; LCA:1..11;
BEGIN
  CLRSCR;
  ASSIGN(INP,'C:\A9.in'); APPEND(INP);
  FOR K:=1 TO 5 DO
    BEGIN
      WRITELN('Введите название страны');
      READLN(Z.COUNTRY);
      WRITELN('Введите площадь страны');
      READLN(Z.AREA);
      WRITELN('Введите столицу страны');
      READLN(Z.CAPITAL);
      FOR I:=1 TO 12 DO READLN(Z.AREA[P]); READLN;
      Z.COUNTRY:=Z.COUNTRY+'  ';
      LCO:=LENGTH(Z.COUNTRY);
      IF LCO<16 THEN
       FOR I:=LCO+1 TO 12 DO INSERT(' ',Z.COUNTRY,I);
      LCA:=LENGTH(Z.CAPITAL);
      IF LCA<11 THEN
       FOR I:=LCA+1 TO 11 DO INSERT(' ',Z.CAPITAL,I);
      WRITE(INP,Z.COUNTRY,Z.AREA,Z.CAPITAL);
      WRITELN(INP);
    END;
  CLOSE(INP); RESET(INP);
  ASSIGN(OUT,'C:\A9.out'); REWRITE(OUT);
  WRITELN(OUT,'Самая маленькая страна':2);
  REPEAT
  READ(INP,Z.COUNTRY,Z.AREA,Z.CAPITAL);
  FOR I:=1 TO 12 DO READLN(INP,Z.AREA[P]);
  READLN(INP);
  MIN:=Z.AREA[I];
  FOR P:=1 TO WORD DO
   BEGIN
    IF P<MIN THEN
      BEGIN
        WRITE(OUT,Z.CAPITAL,Z.AREA);
      END;
      BREAK
   END;
  UNTIL EOF(INP);
  CLOSE(INP);
  CLOSE(OUT);
END.

Помогите исправить ошибку