Из файла извлечь числа в переменные типа real

var f:text;
     d,b:real;
     fname:string;
     s:string;
     c:char;
     dop:integer;
begin
write('Imya faila: ');readln(fname);
assign(f,fname);
reset(f);  (*открыть файл*)
 
readln(f); (*пропустить первую строку*)
read(f,c,с); (*считать первые 2 ненеужные символа новой строки*)
s:=''; (*число в виде string;*)
while not eoln(f) do (*пока не конец строки*)
  begin
  read(f,c); (*считываем новый символ*)
  s:=s+c; (*и дописываем его к числу*)
  end;
val(s,b,dop); (*перевести рядок s в число b*)
 
readln(f);
read(f,c);read(f,c);
s:='';
while not eoln(f) do
  begin
  read(f,c);
  s:=s+c;
  end;
val(s,d,dop);
   
write('d+b=',d+b:0:5);
close(f);
readln
end.

 assign(f,a);
  reset(f);
  readln(f,a);
  val((copy(a,pos('=',a)+1,length(a))),x1,c);
  readln(f,a);
  val((copy(a,pos('=',a)+1,length(a))),x2,c);
  readln(f,a);
  val((copy(a,pos('=',a)+1,length(a))),pog,c);
  close(f);

var f:text;
    a:string;
    c:integer;x1,x2,pog:real

Двигун КАМАЗ 740; авт.
D=   0.12
S=   0.12
Lam= 0.275
N=   2500
Mp=  3.35
Msh= 3.35
Mo=  0.31
Mk=  6.6

var fin,fout:text;
     b:real;
     a:string;
     c:integer;
begin
  write('Imya faila in: ');readln(a);
  assign(fin,a+'.txt');
  write('Imya faila out: ');readln(a);
  assign(fout,a+'.txt');
  reset(fin);
  rewrite(fout);
  while not eof(fin) do
    begin
      readln(fin,a);
      val((copy(a,pos('=',a)+1,length(a)-pos('=',a))),b,c);
      write(fout,b:0:5);
    end;
  close(fout);
  close(fin);
end.

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var f:Textfile;
     mass:array of real;
     sf:array of String;
     fname:string;
     num,i,j:integer;
     s:String;
begin
write('Imya faila: ');
readln(fname);
assign(f,fname);
num:=0;
reset(f);
while(not EOF(f))do begin
readln(f);
inc(num);
end;
closeFile(f);
SetLength(mass,num);
SetLength(sf,num);
reset(f);
for i:=0 to num-1 do
readln(f,sf[i]);
closeFile(f);
 
 for i:=0 to num-1 do begin
 s:='';
  for j:=0 to Length(sf[i])-1 do
if(sf[i][j]='0')or(sf[i][j]='1')or(sf[i][j]='2')or(sf[i][j]='3')or(sf[i][j]='4')
or(sf[i][j]='5')or(sf[i][j]='6')or(sf[i][j]='7')or(sf[i][j]='8')or(sf[i][j]='9')then
 s:=s+sf[i][j];
 sf[i]:=s;
 mass[i]:=StrToFloat(sf[i]);
 end;
 
 for i:=0 to num-1 do
writeln(mass[i]:0:3);
 
readln;
end.