В заданном тексте замените все слова ОАО на ЗАО

var st:string;
k:integer;
procedure zamena(s:string;k:integer);
var i:integer;
 begin
 readln(st);
 for i:=1 to length(st)-1 do
 if copy(st,i,3) ='ОАО' then
  begin 
  delete(st,i,3);
  insert('ЗАО',st,i);
  end;
  st:=k
  end;

var st,st1:string;
n:integer;
procedure zamena(var st:string;var n:integer);
var i:integer;
 begin
 readln(st);
 for i:=1 to length(st)-1 do
 if copy(st,i,3) ='ОАО' then
  begin
  delete(st,i,3);
  insert('ЗАО',st,i);
  inc(n);
  end;
  end;
  procedure udal(var st:string;var st1:string);
  begin
  st1:=st+' ';
 delete(st1,1,pos(' ',st1));
  end;
  begin
  zamena(st,n);
  udal(st,st1);
  writeln('Замена ОАО:  ',st);
  writeln('Количество замен  ',n);
  writeln('Удал первое слово  ',st1);
  end.

var
s:string;
a,i,k:integer;
begin
writeln('Vvedite stroku');
readln(s);
s:=' '+s+' ';
for i:=1 to length(s)-2 do
if copy(s,i,5)=' ЋЂЋ ' then
begin
s[i+1]:='‡';
inc(k);
end;
delete(s,1,1);
writeln('Posle zamen s=',s);
writeln('Sdelano zamen k=',k);
a:=pos(' ',s);
delete(s,1,a);
writeln('Stroka bez 1 slova=',s);
end.

for i:=1 to length(s)-4 do