Дана двумерная матрица n на m.найти максимально отрицательное и разместить его в центре матрицы. алгоритм и программа

Const m=5; n=4; var a: array[1..m,1..n] of integer; i,j,max: integer; begin   randomize;   for i: =1 to m do     for j: =1 to n do a[i,j]: =random(201)-100;   max: =0;   for i: =1 to m do     for j: =1 to n do       if a[i,j]< max then max: =a[i,j];   if max=0 then writeln('в матрице нет отрицательных элементов.')   else a[(m div 2)+1,(n div 2)+1]: =max;   for i: =1 to m do         //вывод матрицы. необязательно.     begin     for j: =1 to n do write(a[i,j]: 4);     writeln;     end; end.

Program dmas_20; uses crt; const   m=4; var a: array[1..m,1..m] of integer;     max, sum, imax, i, k: integer; begin randomize;   for i: =1 to m do begin for k: =1 to m do begin a[i,k]: =random(50);   write(a[i,k]: 4); end; writeln; end;   sum : = 0;   for k: =1 to m do    sum : = sum + a[1,k];   max : = sum;     imax : = 1;   for i: =2 to m do    begin     sum : = 0;     for k: =1 to m do  sum : = sum + a[i,k];     if sum > max then  begin       max : = sum;       imax : = i;     end;     end; writeln('номер строки ', imax, ' сумма элементов   ', max ); readln;   end.

Числа фибоначчи   – это элементы числовой последовательности,   в которой каждое последующее число равно сумме двух предыдущих. var a,b,c,i,n: integer; begin       write('введи  n = ');       readln(n);       a : = 0;       write(a,' ');       b : = 1;       write(b,' ');       for i: =3 to n do begin             write(a+b,' ');             c : = b;             b : = a + b;             a : = c       end; end.