Перемещение по матрице( Free Pascal)

[Nastya1221]

Подпрограмма должна содержать минимальный набор операций(перемещение по матрице с помощью стрелок, редактирование элемента матрицы с проверкой правильности введенного числа, выход), внизу экрана должна быть строка состояния, которая содержит информацию о текущем элементе матрицы(его индексы в матрице и полное значение в научном формате), и подсказка по используемым клавишам.

Я попыталась написать, но ничего не работает, помогите!
Код:

Procedure Tabl(x:PMatrix;w:Telem);
Var b,i,j,k:integer;
    di,dj:TUnSignedInt;
    c:char;
Begin repeat
      c:=Readkey;
   If c=#0 then begin c:=readkey;
    case c of
     #72: begin k:=k-1;
   If k<1 then k:=z-1;
          end;
     #80: begin k:=k+1;
   If k>r-1 then k:=1;
          end;
     #75:begin k:=k-1;
   If k<1 then k:=z-1;
         end;
     #77:begin k:=k+1;

        For j:=0 to r-1 do
        If i=k then TextColor(yellow) else TextColor(15);
        gotoxy(k,r);

        If k>r-1 then k:=1;
         end;
    end;{case}
   For i:=0 to z-1 do
 begin
     If i=k then TextColor(yellow) else TextColor(15);
   Writeln(i);

    Readln;
    For j:=0 to r-1 do
  Begin
   x^.Get(di+i,dj+j,w);

Write (w:8);
  end;
 end;
 end; Until c=#13;
end;

Можно ли тут что-то исправить, или здесь все неправильно??