Перечислить цены в рублях по текущему курсу и дописать к строкам полученные значения - Turbo Pascal

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

Каждая строка текстового файла f содержит название фирмы, название товара и цену в евро. Перечислить цены в рублях по текущему курсу и дописать к строкам полученные значения. Результаты записать в новый текстовый файл.

Решение задачи: «Перечислить цены в рублях по текущему курсу и дописать к строкам полученные значения»

Листинг программы

var f,g:text;
    s:string;
    c,k:real;
    i:integer;
begin
assign(f,'1.txt'); //файл в папке с программой
reset(f);
assign(g,'2.txt'); //получим овый там же
rewrite(g);
k:=80.25; //курс
while not eof(f) do
 begin
  readln(f,s);
  write(g,s);
  while pos(' ',s)>0 do
  delete(s,1,pos(' ',s));
  val(s,c,i);
  c:=c*k;
  writeln(g,' ',c:0:2);
 end;
close(f);
close(g);
write('Цены пересчитаны и записаны в файл 2.txt');
readln;
end.

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

Создаются переменные f, g, s, c, k, i, которые будут использоваться в программе.
Устанавливается курс валюты (k := 80.25).
Открывается файл '1.txt' для чтения и присваивается ему переменной f.
Открывается файл '2.txt' для записи и присваивается ему переменной g.
Читается строка из файла '1.txt' и записывается в файл '2.txt' с помощью функции write.
Если в строке есть пробелы, то они удаляются с помощью функции delete.
Строка преобразуется в число с плавающей точкой и записывается в переменную c.
Число умножается на курс валюты (c := c * k).
Полученное значение записывается в файл '2.txt' с помощью функции write.
Закрываются файлы f и g с помощью функции close.
Выводится сообщение 'Цены пересчитаны и записаны в файл 2.txt'.
Программа завершается с помощью функции readln.