Реализовать программу с подпрограммой-функцией

[PHARAoN91]

По условию задачи: Осуществить поворот смежных с элементом матрицы [I,J] элементов на 90 градусов против часовой стрелки (1<I<N,1<J<M). Реализовать данную программу с подпрограммой-функцией, например, ввод и вывод в соответствующих подпрограммах-процедурах (как уже сделано), а обработка (в данном случае procedure rotate_array) в подпрограмме-функции. Обрабатываемые данные передаются программе-функции через параметры.

program rotate_array90;
uses crt;
const N=20; M=20;
type
massiv = array[1..N,1..M] of integer;
var mas:massiv;
i,j,x,y:integer;
procedure form_array(var a:massiv; x,y:integer);
var i,j:integer;
begin
randomize;
for i:=1 to y do
  for j:=1 to x do
  a[i,j]:=random(100);
end;
procedure print_array(a:massiv; x,y:integer);
var i,j:integer;
begin
for i:=1 to y do
begin
writeln;
  for j:=1 to x do
  Write('  ',a[i,j])
end;
end;
procedure rotate_array(var a:massiv;x,y,i,j:integer);
var mas1,mas2:array[1..8] of integer;
k:integer;
begin
if ((i<>1) and (j<>1) and (i<>y) and (j<>x)) then
begin
mas1[1]:=a[i-1,j-1];
mas1[2]:=a[i,j-1];
mas1[3]:=a[i+1,j-1];
mas1[4]:=a[i+1,j];
mas1[5]:=a[i+1,j+1];
mas1[6]:=a[i,j+1];
mas1[7]:=a[i-1,j+1];
mas1[8]:=a[i-1,j];
for k:=1 to 8 do
if (k+1)>8 then
mas2[k+1-8]:=mas1[k]
else
  mas2[k+1]:=mas1[k];
a[i-1,j-1]:=mas2[1];
a[i-1,j]:=mas2[2];
a[i-1,j+1]:=mas2[3];
a[i,j+1]:=mas2[4];
a[i+1,j+1]:=mas2[5];
a[i+1,j]:=mas2[6];
a[i+1,j-1]:=mas2[7];
a[i,j-1]:=mas2[8];
end else
writeln('Неправильные числа - не вращаются');
end;
begin
writeln('Введите количество строк: ');
readln (y);
writeln('Введите количество столбцов: ');
readln (x);
  form_array(mas,x,y);
writeln('Исходная матрица');
  print_array(mas,x,y);
 writeln('Введите номер строки i: ');
readln (i);
  writeln;
writeln('Введите номер столбца j: ');
readln (j);
  writeln;
  writeln('i = ',i,' j = ',j);
writeln('Поворот смежных элементов [i,j] матрицы против часовой стрелки');
  rotate_array(mas,x,y,i,j);
  writeln;
  print_array(mas,x,y);
  readln;
end.

Помогите пожалуйста, сроки поджимают...