Строки, Паскаль

[bwitcher]

Всем привет! Ребят, очень нужна ваша помощь. Сделать задачку нужно, а я не понимаю как. Пжл.
Написать программу, которая может быть переводчиком в «Королевстве кривых зеркал»: слово, введенное пользователем, переводится на «зазеркальный» язык (буквы в слове переставляются задом наперед). Программа должна завершать работу после ввода, например, звездочки.
И еще во такая просьбочка: не могли бы вы исправить ошибочку в одной программке? Она работает правильно, только транспонирует матрицу неверно.
Даны две прямоугольные матрицы А(3,4) и В(3,4).Найти матрицу С(3,4), элементы которой равны сумме соответствующих элементов матриц А и В, после чего произвести транспонирование полученной матрицы С.

Program MyProg;
uses crt;
const
      n=3;
      m=4;
var   a,b,c:array[1..n,1..m] of integer;
      i,j:integer;
begin
clrscr;
       writeln('Массив A:');
       for i:=1 to n do
       begin
       for j:=1 to m do
       begin
       a[i,j]:=random(10);
       write(a[i,j]:4);
       end;
       writeln;
       end;
       writeln;
writeln('Массив B:');
for i:=1 to n do
begin
for j:=1 to m do
begin
b[i,j]:=random(10);
write(b[i,j]:4);
end;
writeln;
end;
writeln;
        write('Сумма массивов А и В = С');
        readln;
        for i:=1 to n do
        begin
        for j:=1 to m do
        begin
        c[i,j]:=b[i,j]+a[i,j];
        write(c[i,j]:4);
        end;
        writeln;
        end;
        Writeln;
Write('Transp');
Readln;
for i:=1 to n do
begin
for j:=1 to m do
begin
c[i,j]:=c[j,i];
Write(c[j,i]:4);
end;
Writeln;
end;
Writeln;
Readln
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[GetMax]

Она работает правильно, только транспонирует матрицу неверно.

Решаемо

Write('Transp');
Readln;
for i:=1 to n+1 do
begin
  for j:=1 to m-1 do
  Write(c[j,i]:4);
  Writeln;
end;

[bwitcher]

Спасибочки)