Написать программу, выбирающую из данной строки все слова, длина которых равна длине первого слова.

Uses wincrt;
Var
s,s1:string;
i,n,j:integer;
Begin
ReadLn(s);
n:=0;
repeat
n:=n+1;
until(s[n]=' ');
delete(s,1,n);
For i:=1 to length(s) do
begin
repeat
j:=j+1;
until((s[j]=' ') or (s[j]='.')  or (s[j]=',') or (s[j]='!'));
if j-1=n-1 then
begin
s1:=Copy(s,i,n-1);
Write(s1,' ');
Delete(s,i,n);
end;
j:=0;
end;
readln;
End.

Uses crt;
const rz=[' ',',',';',':','?','!','.']; //разделители
Var s,s1:string;
    i,n:integer;
Begin
ReadLn(s);
s:=s+','; //добавим запятую
For i:=1 to length(s) do
if s[i] in rz then s[i]:=',';//заменим все разделители на запятые
while pos(',,',s)>0 do
delete(s,pos(',,',s),1);//удалим лишние запятые
if s[1]=',' then delete(s,1,1);//и если в начале
s1:=copy(s,1,pos(',',s)-1); //первое слово
n:=length(s1); //его длина
delete(s,1,pos(',',s));//удалим
writeln('Первое слово - ',s1);
writeln('Слова, равные по длине первому');
i:=0;
while pos(',',s)>0 do //пока есть запятые
 begin
  s1:=copy(s,1,pos(',',s)-1);//слово
  if length(s1)=n then  //если длина=первому
   begin
    i:=1;
    write(s1,' ');
   end;
  delete(s,1,pos(',',s)); //удалим
 end;
if i=0 then write('Таких слов нет');
readln
end.