Сформировать матрицу

uses crt;
function F(x:real):real;
begin
F:=8.2*cos(x)-0.9*sin(2*x);
end;
const n=5;
      m=6;
var c:array[1..n,1..m] of real;
    x,dx,mn,mx:real;
    i,j,jmx:byte;
begin
clrscr;
writeln('Исходная матрица:');
x:=-5;
dx:=0.3;
i:=1;
j:=0;
mn:=F(x);
while x<=10 do
 begin
  j:=j+1;
  if j>m then
   begin
    i:=i+1;
    j:=1;
   end;
  c[i,j]:=F(x);
  if c[i,j]<mn then mn:=c[i,j];
  x:=x+dx;
 end;
for i:=1 to n do
 begin
  for j:=1 to m do
  write(c[i,j]:6:2);
  writeln;
 end;
writeln;
writeln('Минимум=',mn:0:2);
if mn>=5 then write('Минимум не меньше -5')
else
 begin
  writeln('Минимум меньше -5');
  for i:=1 to n do
   begin
    mx:=c[i,1];jmx:=1;
    for j:=1 to m do
    if c[i,j]>mx then
     begin
      mx:=c[i,j];
      jmx:=j;
     end;
    writeln('Максимальный в строке ',i,' c[',i,',',jmx,']=',mx:0:2);
    for j:=1 to n do
    c[i,j]:=c[i,j]/mx;
   end;
  writeln('Преобразованная матрица:');
  for i:=1 to n do
     begin
      for j:=1 to m do
      write(c[i,j]:6:2);
      writeln;
     end;
 end;
readln
end.