Найти ошибку в коде - Pascal ABC (15413)

uses crt;
const m=10;
label met;
var c:char;
f,dt:text;
k,i,j,z,b:byte;
a:array[1..m,1..m] of real;
 
procedure keyboard;
begin
repeat
write('Rozmirnist->');
readln(k);
until(k<=10) and (k>1)
end;
 
procedure inputmatrix;
begin
for i:=1 to k do
for j:=1 to k do
begin
write ('A[',i,',',j,']->');
readln(a[i,j]);
end;
end;
 
procedure data;
begin
assign(dt,'zad4dat.txt');
reset(dt);
begin
for i:=1 to k do
for j:=1 to k do
begin
read(dt,a[i,j]);
end;
end;
end;
 
procedure list;
begin
writeln('Masiv:');
for i:=1 to k do
for j:=1 to k do
if j<k then
write (a[i,j]:3:5)
else
writeln(a[i,j]:3:5)
end;
 
procedure init;
begin
randomize;
for i:=1 to k do
for j:=1 to k do
a[i,j]:=-random(50)+25;
end;
 
procedure work;
begin
for i:=1 to k do
for j:=1 to k do
if a[i,j]>0
then
a[i,j]:=sqrt(a[i,j])
else
a[i,j]:=-a[i,j];
end;
 
procedure saving;
begin
assign(f,'zad4rez.txt');
rewrite(f);
writeln(f,'Masiv');
write(f,a[i,j]:3:5);
readln;
close(f);
close(dt);
end;
begin
clrscr;
met:
clrscr;
writeln('Zdelay vubor:');
writeln('1-Vvod z keyboard');
writeln('2-Zcitovanie z file');
writeln('3-Random zapolnenie');
writeln('4-Masiv');
writeln('5-Vupolnenie zadaniya');
writeln('6-Rezultat');
writeln('7-Save file');
writeln('8-Exit');
c:=readkey;
clrscr;
case c of
'1':begin
writeln ('Vvod z keyboard');
keyboard;
inputmatrix;
readkey;
goto met;
end;
'2':begin
Writeln('----------------');
keyboard;
data;
readkey;
goto met;
end;
'3':begin
writeln('Random');
keyboard;
init;
readkey;
goto met;
end;
'4':begin
list;
readkey;
goto met;
end;
'5':begin
writeln('Zadanie');
readkey;
list;
work;
goto met;
end;
'6':begin
writeln('Rezultat');
list;
work;
readkey;
goto met;
end;
'7':begin
saving;
writeln('file saved');
readkey;
goto met;
end;
'8':exit
else
begin
clrscr;
writeln('ОШИБОЧКИ');
readkey;
goto met;
end;
end;
end.