Сколько раз строка встречается в тексте.

[Алерон]

Подумал и решил что если строка уже проверялась и она была равна другой строке то массиву с её индексом присваивается значение 1 и это будет означать что с данной строкой можно не работать. НО почему то с этим условием ничего не получается, а хочется решить так как задумал(

 var name: array [1..11] of string;

count: array [1..11] of integer;
ct: array [1..11] of integer;
R: string;
S, i, k, n,j: integer;
begin
i:=0;
readln(n);
for i:=1 to n do
readln(name[n]);
i:=0;
while i<>n do begin
I:=i+1; r:=name[i];
if ct[i]<>1 then begin
for k:=1 to n do begin

if (name[k]=r) then begin count[i]:=count[i]+1; ct[k]:=1; ;end;
end;
end;

end;


i:=0;
for i:=1 to n do
write(count[i]);
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.