Получить все различные слова заданных строк, которые начинаются с ‘a’. - Pascal ABC

Формулировка задачи:

Дана последовательность строк, заканчивающаяся строкой ‘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';

Решение задачи: «Получить все различные слова заданных строк, которые начинаются с ‘a’.»

Листинг программы

for i:=1 to length (s) do
Begin
  if (s[i]='a')and(z=0) 
  then 
  Begin
    z:=1;
    s0:='a';
  end
  else
    if s[i]=' ' 
    then 
    Begin
      z:=0;
      s0:=0;
    end
    else
      if z=1 then
        s0:=s0+s[i];

Объяснение кода листинга программы

В данном коде используется цикл for, который выполняется от 1 до длины строки s. Внутри цикла проверяется условие: если символ s[i] равен 'a' и переменная z равна 0, то выполняется блок кода внутри Begin...End. В этом блоке переменная z устанавливается равной 1, а переменная s0 устанавливается равной 'a'. Если же символ s[i] равен пробелу и переменная z равна 0, то выполняется другой блок кода внутри Begin...End. В этом блоке переменная z устанавливается равной 0, а переменная s0 устанавливается равной 0. Если же символ s[i] не равен 'a' и не равен пробелу, то переменная z устанавливается равной 0, а переменная s0 устанавливается равной s0+s[i].