переделать задачу с использованием процедур или функций

[mashat99]

подскажите, пожалуйста, как можно переделать эту задачу, чтобы использовались процедуры или функции.

Вам нужно преобразовать большое количество старых программ для новой версии компилятора. Для этого нужен заменить "->" на "." везде, кроме комментариев. Комментарии в данном языке программирования начинаются с "/ /" и продолжаются до конца строки. Напишите программу, которая выполняет такое преобразование.

var
i,j:integer;
s:string;
f,f1:text;

begin
       assign(f, 'input.txt');
       assign(f1, 'output.txt');
       reset(f);
       rewrite(f1);
       while not Eof(f) do
              begin
                 readln(f,s);
                 for i:=1 to length(s) do
             begin
             if (s[i]='-') and (s[i+1]='>') then
                 begin
                   Delete(s,i,2);
                   Insert('.', s, i);
                 end;
             if (s[i]='/') and (s[i+1]='/') then break;
             end;
       writeln(f1,s);
       end;
      close(f);
      close(f1);
end.

заранее спасибо.

[Антон Лысенко]

можно поместить тело цикла в процедуру.
Р.S.
и ещё я бы вам посоветовал не использовать "break" это поганый тон в программировании, так же как и использование меток. Всегда можно добавить ещё одно условие в цикле, нежели использовать "некрасивые" методы для написания кода. Это мое мнения, я не навязываю его вам, просто советую)

[MyLastHit]

goto - это дурной тон программирования. Break это очень хороший тон программирования.
Выйдите из цикла без break)):

while true do
...

[Антон Лысенко]

Сообщение от MyLastHit

goto - это дурной тон программирования. Break это очень хороший тон программирования.
Выйдите из цикла без break)):

while true do
...

здесь break можно вообще не использовать! сделав вот так

  while not Eof(f) do
              begin
                 readln(f,s);
                 for i:=1 to length(s) do
             begin  
              if (s[i]<>'/') or (s[i+1]<>'/') then 
                if (s[i]='-') and (s[i+1]='>') then
                  begin
                   Delete(s,i,2);
                   Insert('.', s, i);
                 end;
             end;

а в других примерах можно использовать двойное условие в циклах, то есть ещё использовать булевую переменную.