Определить суму элементов матрицы от М (2,2) до М (5,4)

var a:array [1..5,1..5] of integer;
    i,n,j:integer;
    f:file of integer;
procedure suma;
var b,sum,k:integer;
begin
k:=0;
for i:=1 to 5 do
    for j:=1 to 5 do
        begin
        read(f,a[i,j]);
        if (i=1) and (a[i,j]<0) then inc(k);
        end;
if k<=2 then
   begin
   sum:=0;
   for i:=2 to 5 do
       for j:=2 to 4 do
           sum:=a[i,j]+sum;
   writeln(sum);
   end
   else writeln('V 1 stroke > 2-x otric elementov');
end;
begin
assign(f,'010104.dat');
rewrite(f);
for i:=1 to 5 do begin
    for j:=1 to 5 do  begin
        a[i,j]:=random(21)-10;
        write(f,a[i,j]);
        write(a[i,j]:3);
        end;
    writeln;
    end;
reset(f);
suma;
close(f);
readln;
end.

var a:array [1..5,1..5] of integer;
    i,n,j:integer;
    f:file of integer;
procedure suma;
var b,sum,k:integer;
begin
k:=0;
for i:=1 to 5 do
    for j:=1 to 5 do
        begin
        read(f,a[i,j]);
        if (i=1) and (a[i,j]<0) then inc(k);
        end;
if k<=2 then
   begin
   sum:=0;
   for i:=2 to 5 do
       for j:=2 to 4 do
           sum:=a[i,j]+sum;
   writeln(sum);
   end
   else writeln('V 1 stroke > 2-x otric elementov');
end;
begin
assign(f,'010104.dat');
rewrite(f);

for i:=1 to 5 do begin
    for j:=1 to 5 do  begin
        write('a[',i,' ',j,']= ');
        readln(a[i,j]);
        write(f,a[i,j]);
        end;
    writeln;
    end;
for i:=1 to 5 do begin
    for j:=1 to 5 do  begin
        write(a[i,j]:3);
        end;
    writeln;
    end;
reset(f);
suma;
close(f);
readln;
end.

Const n=5;
Var M:array[1..n,1..n] of integer;
    i,j,k,s:integer;
Procedure Sum(Var s:integer);
Var i,j:byte;
Begin
    s:=0;
    For i:=2 to n do
     For j:=1 to n do
     Begin
       if ((i=2)and(j=1))or((i=5)and(j=5)) then Continue;
       s:=s+M[i,j];
     End;
End;
Begin
    writeln('Матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin
        M[i,j]:=random(31)-15;
        write(M[i,j]:4);
      End;
      writeln;
    End;
    For j:=1 to n do
     if M[1,j]<0 then inc(k);
    if k<2 then 
    Begin
      Sum(s);
      writeln('Сумма  = ',s);
    End;
End.