Используя подпрограмму,определить,сколько из массивов являются упорядоченными по возрастанию

Var A,B,C: array of integer;
i,k:integer;
procedure poisk (var D:array of integer);
var j,n,k:integer;
begin
k:=0;
for j:=1 to n do
if D[j]<D[j+1]then k:=k+1;
end;
 
Begin 
randomize;
for i:=1 to 6 do begin 
A[i]:=random(30)-15;
Write (a[i]:4);end;
writeln;
k:=poisk(A);
writeln('k',k);
readln;
end.

Uses crt;
Type
  mas = Array [1..10] of Integer;
Var
  a,b,c: mas;
  i: Byte;
{-----}
Function IsSortUp(t: mas; k: Byte): Boolean;
var f: Boolean;
    i: Byte;
begin
  f:=True;
  For i:=2 to k do
  If t[i]<t[i-1] Then
  begin
    f:=False;
    Break
  end;
  IsSortUp:=f;
end;
{-----}
Procedure ArrayOut(t: mas; k: Byte);
var i: Byte;
begin
  For i:=1 to k do
  Write(t[i],' ');
  Writeln
end;
{-----}
BEGIN
Write('Введите массив A(6): ');
For i:=1 to 6 do
Readln(a[i]);
Write('Введите массив B(8): ');
For i:=1 to 8 do
Readln(b[i]);
Write('Введите массив C(10): ');
For i:=1 to 10 do
Readln(c[i]);
Clrscr;
Writeln('Массив A: ');
ArrayOut(a,6);
Writeln('Упорядочен по возрастанию? Ответ: ',IsSortUp(a,6));
Writeln('Массив B: ');
ArrayOut(b,8);
Writeln('Упорядочен по возрастанию? Ответ: ',IsSortUp(b,8));
Writeln('Массив C: ');
ArrayOut(c,10);
Writeln('Упорядочен по возрастанию? Ответ: ',IsSortUp(c,10));
END.