program roy;
uses crt;
var
a,c,d:string;
b:integer;
function guest(x,y:string):string;
var
i,z:integer;
begin {func}
readln(x);
for i:=1 to 4 do
begin
readln(y);
if x=y then
guest:='You Are in the list'
else
guest:='You are NOT on the list';
end;
end;
begin
readln(a);
d:=guest(a,c);
writeln(d);
readkey;
end.איך אני מתקן אותה שתפעל ?
תודה מראש