Заменить в тексте все буквы О на Ъ

program z21;
{ Заменить данную букву в слове многоточием. }
uses crt;
var aa,a,b : string;
i,l,j : longint;
begin
clrscr;
textcolor(15);
write(' введите слово: ');readln(a);
write(' введите букву: ');readln(aa);
a:=a+' ';
l:=length(a);
if length(aa)>1 then halt;
for i:=1 to l do
if a[i]=aa then begin
if i<>l then
begin
l:=l+2;
for j:=l downto i+1 do
a[j]:=a[j-2];
end;
l:=l+2;
a[i]:='.';a[i+1]:='.';a[i+2]:='.';
end;
write('Итог: ',a);
readln;
end.

uses crt;
 
const aa='ъ';
 
var a,b:string;
     i: integer;
 
begin
  clrscr;
  writeln('Напишите слово - ');
  read(a);
  write('Введие букву которую будем заменять на "ъ" - ');
  read(b);
 
  for i:=1 to length(a) do
    if a[i]=b then
      a[i]:=aa;
      
  writeln(a);
  readln;
end.

uses crt;
const aa='ъ';
var a:string;
    i: integer;
begin clrscr;
writeln('Введите текст - ');
readln(a);
for i:=1 to length(a) do
if a[i]='о' then
   a[i]:=aa;
   writeln(a);
   readln;
end.

Program P3;
Const  N=4;
Var
A: array[1..N,1..N] of  real;
i,j : integer;
b: real;
begin
for i:=1 to N do
begin
for j:=1 to N do
read(A[i,j];
writeln;
end;
for i:=1 to N do
for j:=1 to N do
If i>j then
Begin
b:=A[i,j];
A[i,j]:= A[j,i];
A[j;i]:=b;
End;
For i:=1 to N do
Begin
For j:=1 to N do
Write(A[I,j]:3:0,’ ‘);
Writeln;
End;
End.