Дана строка.Найти в ней те слова, которые начинаются и заканчиваются одной и той же буквой.Вывести эти слова на экране

@Леха008 · Регистрация: 29.02.2012

Дана строка.Найти в ней те слова, которые начинаются и заканчиваются одной и той же буквой.Вывести эти слова на экране.
Вот код:

Pascal

program tr;
uses crt;
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.

Программа не компелируется. Якобы строка выходит из диапазона. Помогите найти ошибку

@Puporev · 25.04.2014, 10:28

Pascal

a:='';
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;

Опции темы