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

в заданном тексте заменить все слова а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.

ответ:

к системному по относятся:  

# операционные системы (эта программа загружается в озу при включении компьютера)  

# программы – оболочки (обеспечивают более удобный и наглядный способ общения с компьютером, чем с командной строки dos, например, norton commander)  

# операционные оболочки – интерфейсные системы, которые используются для создания графических интерфейсов, мультипрограммирования и. т.  

# драйверы (программы, предназначенные для портами периферийных устройств, обычно загружаются в оперативную память при запуске компьютера)  

# утилиты ( или служебные программы, которые представляют пользователю ряд дополнительных услуг)

объяснение:

наверно подразумевается "противополных знаков". вначале немного подумайте над алгоритмом.

заведите место хранения вводимых чисел (в примитивном случае - массив из 4х эл-тов, в общем - список arraylist,

подсчитывайте количество введённых чисел (или сразу считайте скольк=4).

помещайте модуль ( math.abs() ) в хранилище, если такого там ещё нет (в map не надо проверять, это множество). на выходе сравните количество введённых и заполненную длину хранилища: разница даст количество "противоположных чисел".  

ну, а вы же учитесь, а не я.