Массивы,матрицы, помогите исправить Опции

[Ibmsystem]

Задача :
нужно составить массивы исходных данных, написать программу работающую с любым допустимым набором данных, исходные и полученные массивы вывести на экран.
данные моего варианта которые непосредственно надо подставить:
Это двумерный массив х[10,20], элементы которого расчитываются по формуле х[i,j] = (i*i*i)/(j*j)+(j*j)/(i*i*i*i*i),
найти мах и мин элемента матрицы, упорядочить элементы 4 го столбца и 5 строки по неубыванию.
Исходный и полученный массивы вывести в файл и на экран


Вот я чет думал так, но чето неработает (совсем непонимаю процедуры и функции)

Код

program plo;
uses crt;
const
n = 10;
m = 20;
function f(y, b: integer): boolean;
procedure bubble(var ar: array of integer; z: integer);
type
matrix = array[1..n,1..m] of real;
var
  a,x:matrix;
  i,j,T: integer;
  flagsort: boolean;
  min,max:real;
begin

  ClrScr;
  assign (output,'output.txt');
  rewrite (output);
  for i:=1 to n do
  begin
     for j:=1 to m do
     begin
      a[i,j]:=(i*i*i)/(j*j)- (j*j)/(i*i*i*i*i);
      write(output,a[i,j]:4);
     end;
     writeln(a[i,j]:4);
  end;

begin
      min:=a[1,1];
    for i:=1 to 10 do
     for j:=1 to 20 do
      if a[i,j]<min then
        min:=a[i,j];
        writeln (min);
end;
begin
    max:=a[1,1];
      for i:=1 to 10 do
        for j:=1 to 20 do
         if a[i,j]>max then
           max:=a[i,j];
           writeln (max);
           end;

begin
  if (y > 0) and (b > 0) then f := (b > y)
  else f := y > b
end;

begin
  for i := 1 to z do
    for j := z downto i + 1 do
      if f(ar[pred(j) - 1], ar[j - 1]) then begin
    T := ar[pred(j) - 1]; ar[pred(j) - 1] := ar[j - 1]; ar[j - 1] := T
      end
end;
end.

ОЧЕНЬ ПРОШУ если несложно укажите на ошибки и подскажите возможные пути их решения.

Тема с такой задачей уже создавалась , но прошу эту неудолять.
Логика проста : старые темы редко кто просматривает,поэтому я создал новую.

Сообщение отредактировано: Ibmsystem - 13.04.2008 20:57