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

Формулировка задачи:

Создайте текстовый файл с примерным содержанием: 2 яблока стоят 34,58 рублей. 3 бутылки молока стоят 125,10 рублей. 2 булки хлеба стоят 48,50 рублей. Проанализировать содержимое файла. Создать программу, которая дополнит текстовый файл предложением: Всего за … товаров … наименований надо заплатить … рублей Есть часть программы, но она неполная и если совсем не то, то дополнять не надо

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.

Объяснение кода листинга программы

Объявлены переменные:
- f: text; - файл
- k_tov, k_nam, x, i: integer; - целочисленные переменные
- stm, y: real; - вещественные переменные
- s: string; - строковая переменная
Файл открывается на чтение с помощью функции assign(f, 'Pokupki.txt')
Используя цикл while и функцию readln(f, s), происходит чтение строки из файла до тех пор, пока не достигнется конец файла (eof(f) = false).
Из каждой строки с помощью функции strtoint(copy(s, 1, pos(' ', s) - 1)) извлекается целочисленное значение, увеличивая при этом счетчик k_tov на это значение.
Строка s очищается от числового значения с помощью функции delete(s, 1, pos(' ', s) - 1).
С помощью цикла while и функции delete(s, 1, 1), удаляются все символы, кроме цифр, из строки s.
Извлекается вещественное значение из строки s с помощью функции strtofloat(copy(s, 1, pos(' ', s) - 1)).
Значение y добавляется к общей сумме stm.
После окончания цикла выводится сообщение с общим количеством купленных товаров k_tov, количеством наименований k_nam и общей суммой stm.
Файл закрывается с помощью функции close(f).