Ошибка

[Molodoy kon']

дана программа

function POISK (var slovo:string,var fw:char):boolean;
var i:integer;
var k:integer;
c:char;
begin
k:=0;
for i:=1 to length(slovo) do
begin
c:=slovo[k+1];
if c=fw then
begin
POISK:=true;
break;
end;
end;
end;
begin
POISK('olololo','l');
writeln(POISK);
readln
end.

При компиляции выдает ошибку :

.pas(1,33) Fatal: Syntax error, ")" expected but "," found

В чем проблема, никак не могу понять

[zhan313]

function POISK (var slovo:string, var fw:char):boolean; {разные типы отделяются ;}
var i:integer;
var k:integer;
c:char;
begin
k:=0;
for i:=1 to length(slovo) do
begin
c:=slovo[k+1];
if c=fw then
begin
POISK:=true;
break;
end;
end;
end;
begin
POISK('olololo','l'); {если объявил var, то и в вызове тоже должно быть var}
writeln(POISK); {вызов функции без параметров}
readln
end.

[Вадим Мошев]

function POISK (var slovo:string,var fw:char):boolean;

Нет никакого смысла передавать параметры функции, как var. Функция не изменяет значения аргументов, а сама является значением, которое оно принимает в зависимости от переданных ей аргументов.

Функция можно было бы объявить следующим образом:

function POISK (r slovo:string; fw:char):boolean;

Кстати, тут правильно сказали, что параметры разных типов разделяются друг от друга точкой запятой.
Если в рамках функции переданные параметры не изменяются (даже если они изменяются, переданные ей параметры не изменятся всё равно), то рекомендуется объявить параметры этой функции как константы, то есть

function POISK (const slovo:string; const fw:char):boolean;