Чтение из файла построчно переменных разного типа

Assign(FT,'put/input.txt');
 Reset(FT);
 Readln(FT,WStr);
 Readln(FT,WStr);
 Val(Copy(WStr,49,4),N_Line,v);
 Readln(FT,WStr);
 for i:=1 to N_Line do 
 begin
  Readln(FT,N1[i],N2[i],Name_Line[i],LengLine[i]);

var
MAIN: array [1..100] of string;
NN: array [1..100] of integer;
NK: array [1..100] of integer;
TYPELINE: array [1..100] of string;
LENGTH: array [1..100] of real;
i,j:integer;
f:text;
begin
  i:=0;
  assign(f,'E:\input.txt');
  reset(f);
    while not eof(f) do
      begin
        inc(i);
        readln(f,MAIN[i]);
      end;
  close(f);
  j:=i;
  writeln('Количество линий ',j);
  writeln('NN  NK  Тип линий  Длина');
  for i:=1 to j do
    begin
      NN[i]:=StrToInt(copy(MAIN[i],1,2));
      delete(MAIN[i],1,3);
      NK[i]:=StrToInt(copy(MAIN[i],1,2));
      delete(MAIN[i],1,3);
      TYPELINE[i]:=copy(MAIN[i],1,5);
      delete(MAIN[i],1,6);
      LENGTH[i]:=StrToFloat(MAIN[i]);
      writeln(NN[i]:2,'',NK[i]:4,'',TYPELINE[i]:9,'',LENGTH[i]:9);
    end;
end.