Найти сумму элементов двумерного массива и переставить элемент позицию который указывает пользователь с 1 элементом массива, Помоги написать прогу,пожалуйста Опции

[Help]

Найти сумму элементов двумерного массива и переставить элемент позицию который указывает пользователь с 1 элементом массива. Напишите прогу плиз чтоб работала...

[Yevgeny]

Program sum;
Const K=5; {kol-vo elementov v stroke}
Type
t=array[1..K] of integer;
tt=array[1..2] of t;
Var
X:tt; i,j,s,temp,n,m:integer;
Begin
Writeln('vvedite elementi!!!');
s:=0;
For i:=1 to 2 do
 For j:=1 to K do begin
                  readln(X[i,j]);
                  s:=s+X[i,j];
                  end;
For i:=1 to 2 do
 Begin
  For j:=1 to K do Write(x[i,j]:3);
  Writeln;
 end;
Writeln('symma = ',s);
Write('vvedite koordinati elementa, m = ');
Read(m);
Write(', n = ');
Readln(n);
temp:=x[1,1];
x[1,1]:=x[m,n];
x[m,n]:=temp;

For i:=1 to 2 do
 Begin
  For j:=1 to K do Write(x[i,j]:3);
  Writeln;
 end;

Readln;
End. 

проверяй...