Паскаль Помогите нужно программу до делать повторяющийся слова нужно убрать

Q&A / Вопрос - Ответ
1

Помогите нужно программу до делать повторяющиеся слова нужно убрать:

var
s:string[80];
i,k,t,y:integer;
begin
writeln('vedite predlozhenie');
read(s);
writeln('vedinoe predlozhenie');
writeln(s);
k:=1;
for i:=1 to length(s) do
if s[i]=' ' then begin t:=k; break;end else inc(k);
y:=0;
for i:=1 to length(s) do
if copy(s,i,t-1)= copy(s,1,k-1) then begin inc(y);end;
if y=1 then writeln(copy(s,1,k-1))
end.
2

Телепаты в отпуске, но то что я понял, это типа паскаль или дельфи, убрал лишнее по моему разумению:

var
s:string[80];
i,k,t,y:integer;

begin
	writeln('vedite predlozhenie');
	read(s);
	k:=1;
	for i:=1 to length(s) do
	if s=' ' then begin 
		t:=k; 
		break;
	end 
	else inc(k);
	y:=0;
	end;
end

На первый раз прощаю, но впредь уделяй внимание деталям, о чем я тебе писал изначально в чате