Дан текст, в котором слова отделяются друг от друга пробелами, удалить из текста все повторно встречающиеся слова

[Anton94.by]

Программа в Паскале по теме: "Строки "

Задача:
Дан текст, слова которого отделяются друг от друга пробелами. Удалить из тек-ста все повторно встречающиеся слова, если количества букв в первом и последнем словах совпадают.
Распечатать исходный текст, количество букв в первом и последнем словах, по-лученный текст.

program nm;
var  c,m,a,s:string;
j,i,h:integer;
start,dlina:integer;
max:integer;
t: boolean;
const
znaki = ['.',',',' ','!','?','-',':',';'];
begin
Write('Введите текст: ');
Readln(s);
i:=1;
h:=1;
start:=0;
a:=s;
j:=0;
m:=s;
max:=0;

допишите программу


_________
Убедительнейшая просьба - давать название темы так,
чтобы название адекватно отражало суть решаемой задачи/проблемы.
эту тему я исправил.
Но в будущем неукоснительно соблюдайте это правило!

Модератор.

[alexiz]

Допишу. Пишите в личку.