Даны вещественные числа a и b. Перемножить их и подсчитать, сколько раз в получившемся значении встречается комбинация цифр 44. Использовать стандартные процедуры и функции в действиях над строками — Pascal(Паскаль)

var
  a, b: double; // изменил тип данных
  s: string;
  n, x: integer;

begin
  write('A=');
  readln(a);
  write('B=');
  readln(b);
  str(a * b: 30: 5, s); // изменил ширину поля
  n := Pos('44', s);
  x := 0;
  while n > 0 do
  begin
    x := x + 1;
    delete(s, n, 2);
    n := Pos('44', s);
  end;
  writeln('44 vstretilos ', x, ' raz(a)');
  writeln('Press [Enter] for exit');
  readln;

end.