Количество слов,у которых первый последний символы совпадают между собой. Паскаль.

[Пахен]

Умные люди взгляните и скажите что не так ?

Uses summm;
var s: string;
k: integer;
begin
writeln('Введите строку');
readln(s);
udalenia(s,s1);
nu_vot(s1,k);
writeln('количество слов,у которых первый последний символы совпадают между собой = ',k);
end.

модуль summm

unit summm;
Interface
var s1 :string;
procedure udalenia(var s:string;var s1 :string );
procedure nu_vot(var s1:string;var k : integer );
Implementation
procedure udalenia(var s:string;var s1 :string );
var i:integer ;
begin
for i:=1 to length(s) do
begin
delete(s,pos(' ',s),1);
end;
s:=s1
end;
 
procedure nu_vot(var s1:string;var k : integer );
var sl: string;
i:integer; 
begin 
s1:=s1+' ';
sl:='';
for i:=1 to length(s1) do
if s1[i]<>' ' 
then sl:=sl+s1[i]
else
begin
if (sl[1]=sl[length(sl)]) and (length(sl)<>0) then inc(k);
sl:='';
end;
end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[raxp]

Не так теги расставлены.

[Stilet]

скажите что не так ?

А с чего ты решил что тут что-то не так?

[Serge_Bliznykov]

Сообщение от Пахен

Умные люди взгляните и скажите что не так ?

модуль summm

unit summm;
...
procedure udalenia(var s:string;var s1 :string );
var i:integer ;
begin
for i:=1 to length(s) do
begin
delete(s,pos(' ',s),1);
end;
s:=s1
end;

как минимум - процедура udalenia всегда очищает строку.
скорее всего, в ней предполагалось написать так:

procedure udalenia(const s:string;var s1 :string );
begin
  s1 := s;
  while Pos(' ',s1)>0 do 
     delete(s1,pos(' ',s1),1);
end;

но я всё равно не понимаю, зачем удалять ВСЕ пробелы из строки.
После этого отличить начало одного слова от окончания другого вообще не будет никакой возможности!
Пробелы тут явно не лишние!