В строке,состоящей из слов,определить количество слов,имеющих количество символов первого слова — Pascal(Паскаль)

uses crt;
var s,s1:string;
    n,i,j,k,k1:byte;
begin
clrscr;
writeln('Введите последовательность слов, разделенных пробелами');
readln(s);
n:=pos(' ',s);{длина первого слова}
k1:=0;
i:=n+1;{первое слово не считаем}
writeln('Слова, равные по длине первому:');
while i<=length(s) do
if (s[i]<>' ')and ((s[i-1]=' ')or(i=1)) then{если буква, а перед ней пробел, или она первая}
 begin
  k:=i;j:=1;s1:=s[i];
  while (s[k]<>' ')and(k<=length(s))do {пока не пробел и не конец строки}
   begin
    k:=k+1;{идем вперед}
    s1:=s1+s[k];{составляем слово}
    j:=j+1;{длина слова}
   end;
  if j=n then
   begin
    k1:=k1+1;
    write(s1,' ');{выводим слово}
   end;
  i:=i+j;{перепрыгиваем}
 end
else i:=i+1;
writeln;
if k1=0 then write('Таких слов нет!')
else write('Их количество=',k1);
readln
end.