const
    cols=79;

var   
    i,j, idx:byte;
    elm:integer;
    T:array[1..cols]of char;
    
begin
  writeln('Заполнение массива из ', cols ,' элементов Английским алфавитом');
    
  for i:=1 to cols do begin
    //c 65 позиции начинаются заглавные латинские буквы
    T[i]:= ChrAnsi( random(1,26)+64 );
    
    write(T[i]:2);
  end;
  writeln();
  writeln();
  
  writeln('Заменить все а на о и все о на а');
  
  for i:=1 to cols do begin
    if (T[i]='A') then  
      T[i]:='O'
    else
      if (T[i]='O') then
        T[i]:='A';

    write(T[i]:2);
  end;
 
 
 end.