Последняя задача и автоматом экзамен, так что буду благодарен.

[Barbie]

Дана последовательность строк, заканчивающаяся строкой ‘END’. Получить все
различные слова из этих строк, которые начинаются с ‘a’.
с последовательностью я разобрался, а вот с нахождением 'a' не получается

const n1=10;
var
s1:array[1..n1] of string;
s2:array[1..n1] of string;
n,i,k,p,m :integer;
t,x,h: string;
begin
n:=1;
repeat
write('введите строку: ');
readln(s1[n]);
n:=n1-1;
until s1[n]='end';

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

а дальше нужно решать, что называть словом (как выделить слово среди набора символов). Например, простейший вариант - слово - это группа символов, не содержащая пробела (или, тоже самое - слова разделяются пробелами).
Дальше писать код по разделению строки на слова (или поискать на форуме, тут неоднократно решалась такая задача).

[Aleksandr H.]

За что автомат, если даже это не может решить ни или, накрайняк, найти реализацию ув.Stileta по поиску слова в строке?