Контрольная работа: Алгоритмические языки: обработка массивов

Readln(Slovo);

if Length(Slovo)<1 then - проверка на ввод слов

begin

Writeln('Nujno vvesti slovo!');

Halt;

end;

j:=0; i:=1; k:=1; n:=1; - н.у. для переменных

while i<=Length(Slovo) do - цикл в котором слова из предложения заносятся в массив begin строк

n:=i;

while (Slovo[i]<>',')and(Slovo[i]<>'.') do begin inc(i); inc(j); end;

str[k]:=Copy(Slovo, n, j); - занесение в массив слова

j:=0;

inc(k);

inc(i);

end;

str[k]:='.';

for i:=1 to k-1 do - цикл в котором происходит сравнение и удаление

for j:=(i+1) to k-1 do begin одинаковых слов в предложении

if str[i]=str[j] then begin

str[j]:='';

end;

end;

st:='';

for j:=1 to k-1 do begin - формирование предложения из неповторяющихся слов

if (str[j]<>'') then st:=st+str[j]+',';

end;

delete(st,Length(st),1);

st:=st+'.';

writeln;