Нужно с коментариями дана строка символов ( 2-3 строки ) в файле f1. составить функцию , формирующую новую строку : заменить все повторные вхождения символа пробел одним символом пробела , в начало строки добавить слово " hачало " , в конец - слово " коhец ". записать новую строку в файл f1 после исходной.

Запись в файл в функцию не входит

//PascalABC.Net 3.2.0.1467
function f(s: string): string;
begin
    s := s.Replace('  ', ' ');
    s := ' HАЧАЛО ' + s + ' КОHЕЦ ';
    Result := s;
end;

begin
    writeln(f('1   2     3     4'));
    writeln(f(''));
    writeln(f('vrgvert revt  vt '));
end.