Прога на паскале дальше 3 строчки не идёт. Что не так?

uses crt;
const nmax=10;
type mas=array[1;nmax] of integer,
math=array[1;max,1;max]of integer;
procedure Task;
begin
writeln('Лабораторная работа №2.Вашуркина Вероника,группа 6102,вариант №5.');
writein('Получить одномерный массив,состоящий из сумм элементов, не превосходящих по значению заданное пользователем число в соответствующих строках матрицы.В полученном векторе решить задачу поиска номера первого положительного элемента.Отсортировать в матрице строки по неубыванию значений элементов в первом столбце.');
end;
Procedure ImputMatr(var a:matr; n,m:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do begin
gotoxy (5*j,10+i);
readln(a[i;j]);
end;
end;
Procedure MatrtoMas(var a:matr;n,m:integer;var b: mas);
var f,i,j:integer;
write('Задайте число');
readln(f);
begin
for i:=1 to n do begin
min:=maxint;b[i]:=0;
for j:=1 to m do
if(a[i;j]=a[i+k,NStr] then begin
for j:=1 to m do begin
v:=a[i,j];
a[i,j]:=a[i+k,j];
a[i+k,j]:=v;
end;
end;
end;
end;
end.