Паскаль. Строки.

[Mon_ Ennemi]

Есть задание:
Удалить в строке слова, которые встречаются в ней указанное число раз.

При этом такой вариант написания программы не подходит, потому что сравнивает слова поэлементно:

program stroka;
uses crt;
var a:string;
b:array[1..60]of string;
i,k,n,t,m,j:byte;
begin
clrscr;
writeln('vvedite stroku');
readln(a);
writeln('vvedite chislo');
readln(n);
a:=' '+a+' ';
for i:=1 to length(a) do
if a[i]=' 'then inc(k)else b[k]:=b[k]+a[i];
for i:=1 to k do
begin
m:=0;
for j:=1 to k do
if b[i]=b[j] then inc(m);
if m=n then
begin
for t:=length(a)downto 1 do
if copy(a,t,length(b[i])+2)=' '+b[i]+' ' then delete(a,t,length(b[i])+1);
end;
end;
writeln(a);
readln;
end.

Помогите, пожалуйста) Очень надо)

[Андрей.12]

можно из строки выделять каждое слово и заносить в массив и работать

[Mon_ Ennemi]

Я делала похожим образом, но тогда слова приходится вводить через ентер, а препода это не устраивает... Или можно переписать как-то иначе, у меня не получилось(
Я делала так:

program p1;
uses
crt;

const
n = 10;

var
s: array[1..n] of string;
repeats: array[1..n] of integer;
m, i, j: integer;

begin
writeln('‚Vvedite',n,' slov ');

for i := 1 to n do

begin
readln(s[i]);
end;

write('‚Vvedite kolichestvo povtorov: ');
readln(m);

for i := 1 to n do
begin
repeats[i] := 0;

for j := 1 to n do

begin
if (s[i] = s[j]) then
repeats[i] := repeats[i] + 1;
end;
end;

writeln('Bez ', m, ' povtorov:');

for i := 1 to n do
begin
if (repeats[i] = m) then
s[i] := ' '
else
writeln(s[i]);
end;

readln(s[1]);
end.