Помогите написать программу на Free pascal

//Доработал код выше, сделав более корректным для использования в среде free pascal.
uses crt;
const n=5; m=5;
var
sum, min,i,j,stroka:Integer;
mas:array[1..N, 1..M] of integer;
begin
clrscr;
randomize;
for I:=1 to N do
begin
for J:=1 to M do
begin
mas[i,j]:=random(10);
sum:=sum+mas[I,J];
write(mas[i,j],' ');
end;
writeln;
end;
Writeln('Сумма всех элементов массива=',sum);
sum:=0;
for I:=1 to N do
begin
for J:=1 to M do
sum:=sum+mas[I,J];
Writeln('Cтрока-',i,' Сумма=',sum);
sum:=0;
end;
min:=mas[1,1];
stroka:=1;
for I:=1 to N do
for J:=1 to M do
if mas[I,J] < min then
begin
min:=mas[I,J];
stroka:=i;
end;
Writeln('Минимальный элемент=',min,' Номер строки-',stroka);
end.
////////////////////////////////////////////////////////код с двумя действиями в одном цикле
uses crt;
const n=5; m=5;
var
sum, min,i,j,stroka:Integer;
mas:array[1..N, 1..M] of integer;
begin
clrscr;
randomize;
for I:=1 to N do
begin
for J:=1 to M do
begin
mas[i,j]:=random(10);
sum:=sum+mas[I,J];
write(mas[i,j],' ');
end;
writeln;
end;
Writeln('Сумма всех элементов массива=',sum);
sum:=0;
min:=mas[1,1];
stroka:=1;
for I:=1 to N do
begin
for J:=1 to M do
begin
sum:=sum+mas[I,J];
if mas[I,J] < min then
begin
min:=mas[I,J];
stroka:=i;
end;
end;
Writeln('Cтрока-',i,' Сумма=',sum);
sum:=0;
end;
Writeln('Минимальный элемент=',min,' Номер строки-',stroka);
end.

var
N, M, sum, min : Integer;
mas:array[1..N, 1..M] or integer;
begin
for var I:=1 to N do
for var J:=1 to M do
sum:=sum+mas[I,J];
Writeln(sum);
sum:=0;
for var I:=1 to N do
begin
for var J:=1 to M do
sum:=sum+mas[I,J];
Writeln(sum);
sum:=0;
end;
min:=MaxInt;
for var I:=1 to N do
for var J:=1 to M do
if mas[I,J] < min then min:=mas[I,J];
Writeln(min);
end.