Разработка программы из использованием процедур (Pascal)

[bot0]

Разработать алгоритм и программу обработки двухуровневого массива.Операции ввода-вывода и обработки оформить в виде процедур.Программа должна предполагать возможность ввода входных данных как из клавиатуры, так и з файла ZAD4.DAT. Результаты работы должны вводиться на экран, так и в файл ZAD4.REZ.

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

Условие задачи

Изменить в квадратной матрице числа их квадрантными корнями,если это сделать нельзя, то изменить их на противоположные.

Мое решение задачи без процедур

uses crt;
const
     n=6;
var
   i,j:integer;
   A:array[1..n,1..n] of double;
begin
clrscr;
randomize;
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        A[i,j]:=-random(50)+25;
        write(A[i,j]:7:2);
        end;
    writeln;
    end;
writeln;
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        if A[i,j]>0 then
            A[i,j]:=sqrt(A[i,j])
        else
            A[i,j]:=-A[i,j];
        write(A[i,j]:7:2);
        end;
    writeln;
    end;
readln;
end.

Процедуры

1) Input keyboard,
2) List file
3) Work ( моя программка)
4) Output screen
5) Save file
6) Exit.