Подкорректируйте ,шо то не так в программе

в заданном тексте заменить все слова а1 на а2

program gdd;
var
n: integer;
a1,a2: string; st: string;
begin
writeln('введите слово');
readln(a1);
writeln('введите слово');
readln(a2);
writeln('введите предложение');
readln(st);
while pos(a1,st)< > 0 do
begin
n: =pos(a1,st);
delete(st,n,length(a1));
insert(a2,st,n);
writeln(st);
readln;
end;
end.

ОтличницаDashaE    1   20.12.2019 20:32    0