Помогите пожалуйста , программа не сложная , но я совсем не умею программировать !!! Написать программу, которая выводит все слова, содержащие букву 'a'.

ах да , есть условия - нельзя начинать писать слова с пробела , и нельзя писать более 254 символов

спасибо)

проверь работает ли потомучто при копировании иногда пробелы исчезают

Я б не сказал что програма не сложнаяvar s:string;i,k1,k2,w:byte;word,a:boolean;beginreadln(s);k1:=1;word:=true;a:=false;s[length(s)+1]:=' ';for i:=1 to length(s)+1 dobeginif i=length(s) then begin k2:=length(s); word:=false; end else if (s[i]=' ') and (word=true) then begin k2:=i; word:=false; endelse if s[i]=' ' then begin k1:=i; word:=true; end; if s[i]='a' then a:=true; if (a=true) and (word=false) then begin a:=false;for w:=k1 to k2 dowrite(s[w]);write(' ');end;end;writeln;end.