ввод из файла

pers=record
        fam:string[20];
        gor:string[20];
        dm:integer;
        kw:integer;
        end;
var a:array[1..50] of pers;
      s,s1:string;
      f:text;
      c:integer;

readln(f,s);

a[i].fam:=copy(s,1,pos(' '),s)-1;//первое слово
delete(s,1,pos(' '),s);//удаляем
a[i].gor:=copy(s,1,pos(' '),s)-1;//второе слово
delete(s,1,pos(' '),s);
s1:=copy(s,1,pos(' '),s)-1;//третье слово
delete(s,1,pos(' '),s);
val(s1,a[i].dm,c);//преобразуем в число
val(s,a[i].kw,c);//четвертое слово-последнее

PROGRAM VVOD;
uses crt;
type element=record
             naz:string;      {название улицы}
             dom:integer;     {количество домов на улице}
             dl:real;         {длина улиц}
           end;
var
  a:array[1..3] of string;    {массив (буфер), в который записываются
                              элементы после того как строка будет разбита
                              на составляющие, так как начальные данные
                              заданы в виде таблицы с N строками по три
                              элемента в каждой}
  b:array[1..43] of element;  {основной массив, в который запишутся
                              данные просле первой обрботки}
  c:string;                   {переменная (буфер), которая будет принимать
                              значения целой стоки из вводной таблицы}
  d:byte;                     {задает место положение первого
                              пробела}
  i:byte;                     
  j:byte;                     {индекс}
  k:byte;                     {индекс}
  n:integer;                  {переменная, которой присваивается числовое
                                 значени, изображонное строкай}
  cod:integer;                {код процедуоной ошибки, если строка
                              преобраэована в число равен 0}
  f:text;
  g:text;
begin
  assign(f,'d:\123\vvod.txt');
  reset(f);
  assign(g,'d:\123\vivod.txt');
  rewrite(g);
  for j:=1 to 43 do begin
    readln(f,c);
    {разделение строки на элементы}
    i:=1;
    while length(c)>0 do begin
      d:=pos(' ',c);
      a[i]:=copy(c,1,d-1);
      delete(c,1,d);
      inc(i);
      if i=3 then begin
      a[i]:=copy(c,1,length(c));
      delete(c,1,length(a[i]));
      break;
      end;{if}
    end;{while}
    b[j].naz:=a[1];
    val(a[2],n,cod);
    b[j].dom:=n;
    val(a[3],n,cod);
    b[j].dl:=n;
  end;{for}
  for j:=1 to 43 do begin
    write(g,b[j].naz,' ');
    write(g,b[j].dom,' ');
    writeln(g,b[j].dl:1:2);
  end;{for}
  close(f);
  close(g);
  readln;
end.

val(a[3],n,cod);
    b[j].dl:=n;

val(a[3],b[j].dl,cod);

readln(a,b,c);