из нескольких цифр составиь самое большое и маленькое

program nazva;
uses
    crt;
type
    Tarr=array [1..10] of integer;
var
    i,v,n,j,t,k:integer;
    a:Tarr;
begin
    write('Введiть к-ть цифр: '); readln(n);
    writeln('Вводьте цифри (0 - кiнець вводу): ');
            repeat
            i:=i+1;
            read(v);
            a[i]:=v;
            until v=0;
                clrscr;write('Ви ввели: ');
                for i:=1 to n do
                 write(a[i],', ');writeln;
writeln;
    for i:=2 to n do
            begin
                t:=a[i];
                j:=1;
                while t>a[j] do 
                j:=j+1;
        for k:=i-1 downto j do
            a[k+1]:=a[k];
            a[j]:=t;
    end;write ('мiнiмальне число: ');
    for k:=1 to n do
            write (a[k]);
    for i:=2 to n do
            begin
                t:=a[i];
                j:=1;
                while t<a[j] do 
                j:=j+1;
        for k:=i-1 downto j do
            a[k+1]:=a[k];
            a[j]:=t;
    end;
        writeln;write('максимальне чмсло: ');
        for k:=1 to n do
            write (a[k]);
    readkey
end.

unit sort;
interface
uses crt;
procedure Vvod(var a:array of byte;var x:byte);
procedure Vyvod(a:array of byte;x:byte);
procedure Max(var a:array of byte;p:byte);
procedure Min(var a:array of byte;p:byte);
implementation
procedure Vvod;
var i,c:byte;
begin
writeln('Введите несколько цифр, окончание ввода ноль:');
x:=0;
repeat
 repeat
  readln(c);
 until c in [0..9];
 if c>0 then
   begin
    a[x]:=c;
    x:=x+1;
   end;
until c=0;
clrscr;
end;
procedure Vyvod;
var i:byte;
begin
for i:=0 to x-1 do
write(a[i]);
writeln;
writeln;
end;
procedure Max;
var i,j,x:byte;
begin
for i:=0 to p-2 do
for j:=i+1 to p-1 do
if a[i]<a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
end;
procedure Min;
var i,j,x:byte;
begin
for i:=0 to p-2 do
for j:=i+1 to p-1 do
if a[i]>a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
end;
end.

uses crt,sort;
var a:array[1..100] of byte;
    n,i:byte;
begin
clrscr;
Vvod(a,n);
write('Исходное число    =');
Vyvod(a,n);
write('Максимальное число=');
Max(a,n);
Vyvod(a,n);
write('Минимальное число =');
Min(a,n);
Vyvod(a,n);
readln
end.