с помощью генератора случайных чисел заполнить массив Английским алфавитом и заменить все а на о и все о на а

// Программа и скриншот ее работы в приложениях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.