Pascal Сама обработка, с входом на фун-цию

[BanzoO]

Люди добрые подскажите как сделать:

Сама обработка запрограммирована в виде процедуры, на вход которой поочередно подаются строки.

я сделал так

procedure t;
begin
i:lenght(s);
Цикл проверки;
end;
begin
Водим строку s1;
Водим строку s2;
s:=s1;
t;
s:=s2;
t;

Как сделать чтоб на вход функции подовались строки по очерёдно?

[Greblin]

На вход которой подаются строки - значит, что у процедуры есть параметр

procedure t(str: string);

[BanzoO]

Дааа но как её описать.
I:=lenght(s); - он принимает строку только s. А мне надо 2 по очереди

[Greblin]

Везде в функции замените s на str, и вызывайте

t(s1); t(s2);