Как изменить программу?

[UberStas]

Была задача: Определить количество 4-х буквенных слов и взять их в скобки. Я сделал, но в одной строке.

uses crt;
var
  s,s2,i,i2,dlina:byte;
  simv,vtext:string;
BEGIN
clrscr;
writeln('Vvedite stroky');
readln(vtext);
vtext:=vtext+' ';
dlina:=length(vtext);
s:=0;s2:=0;i2:=1;
for i:=1 to dlina  do
begin
simv:=copy(vtext,i2,1);
inc(s);
if (simv=' ') or (simv=',') or (simv='.') then
   begin
     if s-1=4 then
        begin
          inc(s2);
          insert('(',vtext,i2-4);
          insert(')',vtext,i2+1);
          i2:=i2+2;
        end;
     s:=0;
   end;
inc(i2)
end;
writeln(vtext);
writeln('kollishestvo 4-x bykvennux clov =',s2);
readln;
END.

Потом изменили задание.
Теперь необходимо создать массив из 10 строчек и определить количество 4-х буквенных слов и взять их в скобки. Делаю - не работает.
Может кто подскажет?
Программа в паскале.

[master_root]

Ты выдели свою прогрумму в функцию. И вызывай её для каждой строки в массиве.

[UberStas]

Я понял. Вот только как именно обращаться к каждой строке?

[Stilet]

как именно обращаться к каждой строке?

Да в цикле по массиву проходи и вышепляй i-тую строку в функцию твою.

[UberStas]

Спасибо за советы. Программа работает.