Из типизированого типа в текстовый

Program Solitary;
uses crt;
type auto=record
          nom:byte;
          mar,firm:string[20];
          god:128..2048;
          kol:word;
          cen:longint;
          end;
          var w,l:integer;
     f,f1:file of auto;
 
procedure WriteFile;
var a:auto;
    n:byte;
    c:char;
begin
assign(f,'f:\auto.dat');
rewrite(f);
writeln('Введите данные по видеокартам:');
n:=0;
repeat
n:=n+1;
with a do
 begin
  nom:=n;
  write('Производитель:'); readln(firm);
  write(' Наименование: ');readln(mar);
  repeat
  write(' Обьем памяти(128-2048): ');readln(god);
  until (god>127)and(god<2049);
  write(' Количество: ');readln(kol);
  write(' Цена: ');readln(cen);
  write(f,a);
  writeln('Для продолжения нажмите Интер');
 end;
c:=readkey;
until c=#27;
close(f);
{   readln;}
end;
procedure ReadFile;
var a:auto;
begin
assign(f,'f:\auto.dat');
reset(f);
writeln('Список видеокарт:':35);
writeln;
writeln('------------------------------------------------------------------------');
writeln('| #  | Производитель |  Наименование  |  Память  | Количество|  цена |');
writeln('------------------------------------------------------------------------');
while not eof(f) do
 begin
  read(f,a);
  with a do
   begin
    gotoXY(1,whereY);write('|',nom:3);
    gotoXy(6,whereY);write('| ',firm);
    gotoXY(22,whereY);write('| ',mar);
    gotoXY(39,whereY);write('| ',god);
    gotoXY(50,whereY);write('|',kol:6);
    gotoXY(62,whereY);write('| ',cen:7);
    gotoXY(72,whereY);writeln('|');
   end;
 end;
writeln('------------------------------------------------------------------------');
close(f);
Writeln;
 readln;
end;

type auto=record
.........................
writeln('Введите данные по видеокартам:');
...................................................
write(' Обьем памяти(128-2048): ');readln(god)

writeln(f,a.nom,' ',a.mar,' ',a.firm,' ',a.god,' ',a.kol,' ',a.cen);

var f:text;
      a:auto;
      s,s1:stribg;
      t,c:integer;    
begin
......
reset(f);
while not eof(f) do
 begin
   readln(f,s);//читаем строку
   a.mar:=copy(s,pos(' ',s)-1);//первое слово до пробела
   delete(s,1,pos(' ',s));//удаляем с пробелом
   a.firm:=copy(s,pos(' ',s)-1);//второе слово
   delete(s,1,pos(' ',s));
   s1:=copy(s,pos(' ',s)-1);//третье слово число
   val(s1,t,c);//преобразуем
   a.god:=t;
   delete(s,1,pos(' ',s));
   s1:=copy(s,pos(' ',s)-1);//так же четвертое
   val(s1,t,c);//остаток строки пятое слово - цена
   a.kol:=t;
   val(s,t,c);
   a.cen:=t;
 end;