Ошибки при работе с динамическим массивом: неверный числовой формат при вводе

Program LR7;
//Uses CRT;
type ST=array[1..5] of string[100];
 ST1=string[10];
 STR=RECORD
    klichki:string[7];
    porod:ST1;//string[10];
    ves:real;
    god:integer;
    nomer:byte;
   end;
 MSTR= array[1..4] of STR;
 MZ=^MSTR;
  const C:ST= (
 '             СВЕДЕНИЯ О СОБАКАХ ПИТОМНИКА                            ',
 '-----------T------------T----------T----------T----------T----------¬',
 '|  Кличка  |  Порода    |   Вес    |   Номер  |   Год    | Возраст  |',
 '+----------+------------+----------+----------+----------+----------+',
 '_____________________________________________________________________');
 var
 Z:MZ;
 Z1:^STR;
  I,J:integer;
  N:integer;
  S:real;
  B:char;
  FR,FI:text;
  
{вывод данной одной строки таблицы}
 Procedure P1(Z1:STR);
 VAR
 k:byte;
 begin
    //with Z^[I] do
  write ( FR,'':2, Z^[i].klichki, ' ':5, Z^[i].porod, ' ':4, Z^[i].ves, ' ':8, Z^[i].nomer, ' ':8, Z^[i].god, '':8);
  k:=2014-Z^[i].god;
          writeln(FR, k);
 end;
 
 {вывод массива записей}
procedure p(Z:MZ);
 //var i: integer;
begin
 for I:=1 to 4 do //begin
 with Z^[I] do  P1(Z^[I]);
   writeln(FR, C[4]);
                  //end;
end;
 
{вывод шапки таблицы}
Procedure SH;
VAR
i:integer;
 begin
   for I:=1 to 4 do writeln( FR, C[I]);
 end;
 
 
 
 
 
 
{ввод и вывод массива записей}
procedure vvod(var Z:MZ; VAR N:integer);
var i:byte;
begin
  assign(FI, 'isxod.txt'); reset(FI);
  for I:=1 to 4 do writeln( FR, C[I]);
  //Readln(FI,N); writeln( 'N= ', N);
  GETMEM (Z,N*Sizeof(STR));
  S:=0;
 For I:= 1 to N do With Z^[i] do begin
   Readln ( FI, klichki, b, porod, ves, nomer,god);
         S:=S+ves;
          end;
   p(z);
  Writeln( FR, 'Суммарный вес = ',s,'кг');
Close(FI);
end;
 
{Function VVODF(var n:integer): MZ;
 var I:integer; Z:MZ;
Begin
  Assign (FI, 'isxod.txt'); Reset(FI);
for i:=1 to 4 do writeln ( FR, C[I]);
readln(FI,N); Writeln('n= ', N);
GETMEM (Z,n*sizeof(STR));
S:=0;
S:=0;
 For I:= 1 to N do With Z^[i] do begin
 S:=S+ves;  end;
 P(Z);
 Writeln( FR, 'Суммарный вес = ',s,'кг');
Close(FI);
VVODF:=Z;
end;  }
 
 
{пOиск данных по породе}
procedure poisk(Z:MZ);
 var TFM : ST1;
    i: Integer; FI:text;
 Label mk;
 Begin
 writeln (FR);
     writeln(FR, '','=====поиск по попороде=======',#13);
      assign (FI, 'porod.txt');  Reset(FI);
       repeat
         readln(FI, TFM);
           writeln (FR, 'Найти породу:', ''''  ,TFM, '''' );
          if TFM= '' then begin
       writeln(FR, 'Нет такой породы'); continue
                          end;
     for i:=1 to n do
       if TFM= Z^[i].porod then begin
               P1(Z^[i]); goto mk
                          end;
        writeln(FR, 'Порода ошибочна');
            mk: until EOF(FI);
                close(FI);
        writeln(FR, 'Поиск закончен');
  end;
 
 
{поиск данных по любому сочетанию двух поисковых признаков}
Procedure POISKU;
var
 TGR: string[7]; TRS: integer; PR: boolean;
 i: byte; FI:text;
 begin
     writeln (FR);
      writeln (FR, '', '=====ПОИСК ПО СТРОКОВОМУ И ЧИСЛОВОМУ КЛЮЧУ===== ', #13);
            writeln (FR);
              assign (FI, 'poiskkl.txt'); reset (FI);
              REPEAT
                  readln (FI, TGR, TRS);
                      writeln (FR, 'Найти кличку', '''', TGR, '''',
                                   'год>=', TRS );
                         if (TGR = '              ') and (TRS=0) then begin
                        writeln (FR, 'Нет данных для поиска'); continue
                                                                end;
                     PR:= false;
                             for I:= 1 to N do  begin
                              with Z^[I] do begin
                              if ((TGR = '              ') or (TGR=klichki)) and
                                 ((TRS =0)   or (TRS <= god))
                                 then begin
                                P1(Z^[i]);
                     PR:= true;
                                      end; end; end;
                            if not PR then
 
                          writeln (FR, 'Такой собаки нет');
                                UNTIL EOF (FI);
                                      close (FI);
                              writeln (FR, 'Поиск закончен');
  end;
 
{основная программа}
BEGIN
Assign (FR,'LR7.rez'); rewrite(FR);
 SH;
 //Z:=VVODF(N);
 VVOD(Z,N);
 POISK(Z);
 POISKU;
 close (FR);
 FREEMEM (Z{,N*Sizeof(STR)});
  Z:=nil;
end.