Нужно написать программу в ПАСКАЛЕ , которая будет убирать из слова букву "А"

Var s, word : string;i : integer;beginReadln(s);i:=1;While (i <=length(s)) dobeginWhile (s[i]<>\' \') and (i <=length(s)) dobeginword:=word+s[i];i:=i+1;end;If (word[length(word)]=\'a\') then Writeln(word);word:=\'\';i:=i+1;end;Readln;end.ВТОРОЙ ПРИМЕР ВЫПОЛНЕНИЯ ПРОГРАММЫ, ЕСЛИ ДАН ТЕКСТ:Program deleteA;constA=[\'A\',\'a\',\'ГЂ\',\'Г*\'];vari,n:integer;s:string;beginwriteln(\'Vvedite stroku\');read(s);for i:=1 to length(s) doif s[i] in A thendelete(s,i,1);for i:= 1 to length(s) dowrite(s[i]);end.