Задача с матрицами., Крайне геморная :( Опции

[Fest]

Задача:
Вводится матрица MR(n,m) с двузначными числами. Сформировать новую матрицу RM(m,n) в которой:
а) в элементах, где первая цифра больше второй выполнить перестановку цифр.
б) элементы, где цифры равны, забить пробелами
в) остальные числа представить сочетанием двух букв, номер которых в алфавите соответствует значению цифры.
Обе матрицы вывести.

Может кто-нибудь подсказать, как это выполнить?.. Особенно меня интересует пункт В. Если не трудно, напишите пожалуйста(только попроще, без процедур, функций и так далее)программу. Или хотя бы опишите как можно выполнить тот или иной пункт. Буду крайне благодарен.

[мисс_граффити]

нашла у себя в залежах на винте...
кто писал - не помню, так что никаких гарантий. вроде работает.

program bukvocifry;
uses crt;
var
MR,RM:array[1..100,1..100] of string[2];
i,j,n,m,proverka,error:integer;
begin
clrscr;
writeln('m?');
readln(m);
while (m>100) or (m<1) do
  begin
  writeln('1<m<100!');
  readln(m);
  end;
writeln('n?');
readln(n);
while (n>100) or (n<1) do
  begin
  writeln('1<n<100!');
  readln(n);
  end;
for i:=1 to n do
  for j:=1 to m do
    begin
    writeln('vvedite element [',i,' ',j,']. uchityvaetsya 2 pervyh simvola');
    readln(MR[i,j]);
    while length(MR[i,j])<>2 do
      begin
      writeln('dogovarivalis o dvuznachnyh... davaite drugoe chislo!');
      readln(MR[i,j]);
      end;
    {I-}
    val(MR[i,j],proverka,error);
    {I+}
    while error<>0 do
      begin
      writeln('eto ne chislo! davaite drugoe');
      readln(MR[i,j]);
      {I-}
      val(MR[i,j],proverka,error)
      {I+}
      end;

    if MR[i,j][1]>MR[i,j][2] then
      RM[i,j]:=MR[i,j][2]+MR[i,j][1]
    else
      if MR[i,j][1]=MR[i,j][2] then
        RM[i,j]:='  '
      else
        RM[i,j]:=char(ord(MR[i,j][1])+79)+char(ord(MR[i,j][2])+79); {79 - это код А}
    end;
clrscr;
for i:=1 to n do
  begin
  for j:=1 to m do
    write(MR[i,j]:2,'   ');
  write('   ');
  for j:=1 to m do
    write(RM[i,j]:2,'   ');
  writeln;
  end;
readln;
end.

что касается твоих ошибок - там несовместимость типов...
надо коды складывать, а не код с символом.
и со скобками что-то не то.