Подкорректируйте ,шо то не так в программе
в заданном тексте заменить все слова а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.
n = 10;
var
a: array[0..10] of integer;
i, s: integer;
begin
//Заполнение массива сл. числами
for i := 1 to n do
begin
a[i] := random(201) - 100;
write(a[i]:4);
end;
writeln;
//1) Все элементы не превышающие число 100
writeln('Не больше 100 ');
for i := 1 to n do
if a[i] <= 100 then
write( a[i]:4);
writeln;
// 2) Все четные элементы
writeln('Кратные двум ');
for i := 1 to n do
if a[i] mod 2 = 0 then
write( a[i]:4);
writeln;
// 3) Все элементы, являющиеся трехзначными числами
writeln('Трехзначные ');
for i := 1 to n do
if (a[i] < -99) or (a[i] > 99) then
write(a[i]:4);
writeln;
// 4) Третий, шестой и т.д элементы.
i := 3;
writeln(' номера 3, 6, 9 и т.д.');
while i < n do
begin
write(a[i]:4);
i := i + 3;
end;
end.