Переделка под делфи

[sefs]

Помогите переделать под делфи, у меня ругается почему то.
В самом задании надо было: вывести на экран в виде таблицы и найти произведение минимального и максимального массива

const
  m=4;
var
  k,n:integer;
  a:array [1..m,1..m] of real;
  min,max:real;
 
function f(i:integer):real;
begin
  f:=9.2*sqr(cos(i))-abs(sin(i/1.1));
end;
 
function g(i:integer):real;
begin
  g:=12.4*sin(abs(i/2.1))-8.3*cos(1.2*i);
end;
 
begin
  for k:=1 to m do
    begin
      for n:=1 to m do
        begin
          a[k,n]:=n*f(k)+sin(k)*g(n);
          write(a[k,n]:10:2);
        end;
      writeln;
    end;
  max:=a[1,1];
  min:=a[1,1];
  for k:=1 to m do
    for n:=1 to m do
      begin
        if a[k,n]>max then
          max:=a[k,n];
        if a[k,n]<max then
          min:=a[k,n];
      end;
  writeln(min*max:10:2);
  readln;
end.

[type_Oleg]

Сообщение от sefs

...у меня ругается почему то...

Если ваша Delphi не только ругается, но и что-то пишет, то прочитав то, что она пишет, можно и самому понять.

Я бы на месте Delphi тоже ругался, если бы исходный код начинался со слова const, а не со слова program

PS Нужен именно консольный вариант ?
Тогда непонятен практический смысл переделки.

[min@y™]

...у меня ругается почему то...

щас я ругаться начну!
бонус тебе.

[Stilet]

у меня ругается почему то.

Всетки культурный у нас форум )
Правильные нам студенты попадаются - не желают выкладывать ругань компилятора. Еще бы, за мат можно и получить
Так держать, гакусей

[min@y™]

был бы я компилятором, бил бы в морду, особенно за однобуквенные идентификаторы!