Использование подпрограмм

[бургер]

Дан вектор А[1:30]. Если в векторе есть одинаковые элементы, то из положительных элементов матрицы, умноженных на Amin сформировать матрицу B[1:4,1:4], дополнив недостающие элементы элементом Amax . Иначе вектор упорядочить по возрастанию и сформировать из него матрицу C[1:5,1:6]. ---- эт как? можете можете написать??? Буду признателен

[Филантроп]

type Tv=array[1..30] of integer;
var  a:Tv;
b:array[1..4,1..4] of integer;
c:array[1..5,1..6] of integer;
max,min:integer;
t:boolean;
i1,j1,k:integer;
function find_max(x:Tv):integer;
 var i:integer;
   m:integer;
 begin
m:=x[1];
 for i:=2 to 30 do
  if x[i]>m then m:=x[i];
  find_max:=m;
end;

function find_min(x:Tv):integer;
 var i:integer;
   m:integer;
 begin
m:=x[1];
 for i:=2 to 30 do
  if x[i]<m then m:=x[i];
  find_min:=m;
end;

function odin(x:Tv):boolean;
 var i,j:integer;
   m:boolean;
 begin
m:=true;
 for i:=1 to 29 do begin
 for j:=i+1 to 30 do
  if x[i]=x[j]then begin m:=false;break;end;
  if not m then break;end;
  odin:=m;
end;

procedure Sort(var Arr : Tv);
var
    I   :   Integer;
    J   :   Integer;
    Tmp :   integer;
begin
    for i:=1 to 30 do
        for j:=1 to 29-i do
            if Arr[j]>=Arr[j+1] then
            begin
                Tmp:=Arr[j];
                Arr[j]:=Arr[j+1];
                Arr[j+1]:=Tmp;
            end;
end;

 begin
randomize;
writeln('=======BeKTOP====');
for i1:=1 to 30 do
begin
a[i1]:=random(31)-15;
write(a[i1]:5);
end;
t:=odin(a);
min:=find_min(a);
max:=find_max(a);
writeln;
writeln('max=',max);
writeln('min=',min);

if not t then begin
sort(a);
k:=1;
for i1:=1 to 5 do begin
for j1:=1 to 6 do
begin
c[i1,j1]:=a[k];
k:=k+1;
write(c[i1,j1]:4);
end;
writeln;
end;
end
else 
begin

k:=1;
i1:=1;j1:=1;
while i1<=4 do begin
  if k<=30 then begin
    if a[k]>0 then begin
      if j1 = 5 then begin inc(i1);j1:=1;end;
      b[i1,j1]:=a[k]*min;
      inc(j1);
    end;
   inc(k);end
else
 begin
if j1 = 5 then inc(i1);j1:=1;end;
b[i1,j1]:=max;
inc(j1);
end;
for i1:=1 to 4 do begin
for j1:=1 to 4 do
write(b[i1,j1]:4);
writeln;
end
end;

readln;
end.

[бургер]

Филантроп, ошибку выдает

[Филантроп]

Паскаль Abc---все работает!
delphi10 --аналогично!
Turbo Pascal 7.1---аналогично с остальными!
delphi7--тоже работает!

борланд паскаль - не работает, ошибка

может просто руки кривоваты?
ctrl+с и ctrl+v нормально нажать не могут?

[бургер]

борланд паскаль - не работает, ошибка

[бургер]

вылетает в середину экрана табличка с ошибкой!