помогите пожалуйста!!!

ЗА РАНЕЕ ОГРОМНОЕ СПАСИБО!!!

var s,sl:string;
er:array [1..5] of string;
k,i:integer;
begin
for i:= 1 to 5 do
readln(er[i]);
readln(s);
k:=0;
for i:= 1 to 5 do
begin
writeln(er[i]);
if(pos(s,er[i])>0)then
inc(k);
end;
writeln(k);
readln;