Помогите написать программу на паскале!!!
Выбрать из текста слова в которых первая буква совпадает с последней, слова в тексте разделены пробелами

А на free pascal

Не люблю я его, убогий он. Если Вам надо FPC - указывайте это сразу в вопросе.

На Фри придется делать распознавание слов в строке. А потом так же, для каждого слова w длины k проверять совпадение w[1]=w[k]

StrUtils немного упрощает задачу

На Ideone.com для fpc пустой вывод даже при указании значения s путем присваивания в теле программы

Я потому и не люблю FPС, что там нужно шаманить с библиотеками.

■ Free Pascal IDE Version 1.0.12 [2014/03/06]■ Compiler Version 2.6.4■ GDB Version GDB 7.4■ Using configuration files from: D:\FPC\bin\i386-win32\Running "d:\fpc\bin\i386-win32\2.exe "Введите текст: космос азбука баобаб импульс озеро довод конецНайденные слова:азбукабаобабозеродовод

Спасибо огромное!!!

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016begin  var s:=ReadlnString('Введите текст:');  Writeln('Слова, в которых совпадают первая и последняя буквы:');  s.ToWords.Where(x->x[1]=x[x.Length]).Println(NewLine)end.Тестовое решениеВведите текст: космос азбука     баобаб  импульс озеро  довод  конецСлова, в которых совпадают первая и последняя буквы:азбукабаобабозеродовод

//Free Pascal 2.6.4uses  strutils;var  s, t: string;  i: integer;begin  write('Введите текст: ');  readln(s);  writeln('Найденные слова: ');  for i := 1 to WordCount(s, StdWordDelims) do  begin    t := ExtractWord(i, s, StdWordDelims);    if t[1] = t[length(t)] then writeln(t);  end;  readln;end.