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

Var s, word : string;
i : integer;
begin
Readln(s);
i:=1;
While (i lt;=length(s)) do
begin
While (s[i]lt;gt; ) and (i lt;=length(s)) do
begin
word:=word+s[i];
i:=i+1;
end;
If (word[length(word)]=a) then Writeln(word);
word:=;
i:=i+1;
end;
Readln;
end.
ВТОРОЙ ПРИМЕР Исполненья ПРОГРАММЫ, ЕСЛИ ДАН ТЕКСТ:
Program deleteA;
const
A=[A,a,Г,Г*];
var
i,n:integer;
s:string;
begin
writeln(Vvedite stroku);
read(s);
for i:=1 to length(s) do
if s[i] in A then
delete(s,i,1);
for i:= 1 to length(s) do
write(s[i]);
end.