паскаль - массивы

[_FENDER_]

Задан массив А[1..5,1..6]. Поменять в нем местами первую и последнюю строку..Напишите пожалуйста код программы..

[_FENDER_]

program Matrix;
{$APPTYPE CONSOLE}
uses
  SysUtils;
 
var
  a: array[1..5,1..6] of integer;
  i, j, x: Integer;
 
begin
  Randomize;
  //Заполняем массив случайными числами
  for i := 1 to 5 do
  begin
    for j := 1 to 6 do
    begin
      a[i,j] := Random(9);
      Write(a[i,j], ' ');
    end;
    WriteLn;
  end;
  //Меняем строчки местами
  for j := 1 to 6 do
  begin
    x := a[1,j];
    a[1,j] := a[5,j];
    a[5,j] := x;
  end;
  //Показываем результат
  WriteLn('Posle zameni:');
  for i := 1 to 5 do
  begin
    for j := 1 to 6 do
    begin
      Write(a[i,j], ' ');
    end;
    WriteLn;
  end;
  ReadLn;
end.

Нашел вот такой код..решение моей задачи..только надо чтобы массив вводился с клавиатуры..подредактируйте пожалуйста код...

[_FENDER_]

язык программирования - Pascal

[Zer0]

      a[i,j] := Random(9);
      Write(a[i,j], ' ');

вот эти строчки поменяйте на

write ('Input a[',i,',',j,']: ');
readln (a[i,j]);