Дана строка. Найти слова, начинающиеся и заканчивающиеся одной буквой (через процедуры)

var
  s, a: string;
  i: integer;
 
begin
  readln(s);
  for i := 1 to length(s) do
  begin
    if s[i] <> ' ' then a := a + s[i];
    if (s[i] = ' ') or (i = length(s)) then
    begin
      if a[1] = a[length(a)] then writeln(a);
      a := '';
    end;
  end;
end.

program praktik1;
uses crt;
var s,sp: string;
    i: integer;
begin
write('s=');
readln(s);
sp:='';
for i:=1 to length(s) do
    sp:=s[i]+sp;
if sp=s then writeln ('Палиндром')
        else writeln ('Не палиндром');
readkey
end.

program praktik;
 
uses
  crt;
 
var
  a: array [1..7, 1..7] of char;
  i, j, kz, kb: byte;
 
begin
  writeln('Заполняем матрицу: ');
  for i := 1 to 7 do
    for j := 1 to 7 do
    begin
      write('a[', i, ']='); readln(a[i, j]);
    end;
  writeln('Дана матрица');
  for i := 1 to 7 do
  begin
    for j := 1 to 7 do
    begin
      write(a[i, j]:2);
      if a[i, j] in ['0'..'9'] then inc(kz) else
      if a[i, j] in ['a'..'z'] then inc(kb);
    end;
    writeln;
  end;
  writeln('Количество цифр ', kz);
  writeln('Количество букв ', kb);
  readln;
end.