Строки: Определить в строке самое короткое слово, заканчивающееся на "А" - Pascal ABC

var
s,s1,s2:string;
min:integer;
begin
writeln('Введите строку ');
readln(s);//ввод строки
s:=trim(s);//удаление пробелов в начале и конце строки
s:=s+' ';//добавляем пробел в конец строки
min:=300;//задаем минимальное значение длины строки 300
s2:='';//в этой переменной будет искомое слово, но пока присваиваем ей значение пустой строки
while length(s)>0 do//пока в строке есть символы
    begin
    s:=trimleft(s);//удаляем пробелы слева
    s1:='';//опустошаем строку s1
    s1:=copy(s,1,pos(' ',s)-1);//записываем в  строку s1 очередное слово
    if (min > length(s1)) and  (s1[length(s1)] = 'А') then //проверяем очередное слово меньше ли оно предыдущего, и заканчивается ли оно на А 
        begin
        min:=length(s1);//переменной присваиваем значение длины слова
        s2:=s1;//записываем найденное слово в переменную s2
        end;
    delete(s,1,pos(' ',s));//удаляем очередное слово из строки
    end;
if s2 = '' then //если строка осталась пустой, значит искомых слов нет выводим соответствующее сообщение
    writeln('Слов заканчивающихся на А не найдено')
else
writeln('Самое короткое слово заканчивающееся на А: ',s2);//выводим искомое слово
end.