Проанализировать содержимое текстового файла

var f1, f2: text;
i, a1, a2: integer;
a3: real;
s1, s2, s3, s4; q, w: string;
j, m: byte;
 
begin
assign(f1, 'Pokupki.txt');
reset(f1);
 
assign(f2, 'Pokupki2.txt');
rewrite(f2);
close(f2);
 
read(f1,s1,s2,s3);
a1:= 0;
for i:= 1 to length(s1) do 
begin
if (s1[i]>= '0') and (s1[i]<= '9') then inc(a1)
end;
 
read(f1, s1);
for i:= 1 to length(s1) do a2:= 0;
while not eof(f1) do 
begin
readln(f1,s1);
a2:= a2 + 1;
end;
 
 
 
close(f1);
 
assign(f1, 'Pokupki.txt');
append(f1);
writeln(f1, 'Всего куплено ', a1,' товаров, ', a2,' наименований на сумму ', a3,' рублей.');
close(f1);
end.

var f: text;
    k_tov,k_nam,x,i: integer;
    stm,y: real;
    s: string;
begin
assign(f,'Pokupki.txt');
reset(f);
k_tov:=0;
k_nam:=0;
stm:=0;
while not eof(f) do
 begin
  readln(f,s);
  inc(k_nam);
  x:=strtoint(copy(s,1,pos(' ',s)-1));
  inc(k_tov,x);
  delete(s,1,pos(' ',s));
  while not(s[1] in ['0'..'9'])do delete(s,1,1);
  y:=strtofloat(copy(s,1,pos(' ',s)-1));
  stm:=stm+y;
 end;
append(f);
writeln(f,'');
writeln(f, 'Всего куплено ', k_tov,' товаров, ',k_nam,' наименований на сумму ',stm:0:2,' рублей.');
close(f);
end.