Calculo do maximo e minimo (v. 1.0.0)

{ paulogp }
{ mac os 7 }
program Ada17p;

uses
    MemTypes, QuickDraw, OSIntf;

const
    Max = 10;

type
    indice = 1..Max;
    vector = array[indice] of real;

var
    tecla: string;
    n: indice;
    vn: vector;

procedure lenum(var n: indice);
begin
    repeat
        writeln;
        write('Introduza um número Inteiro (n in [1;', MAX, ']): ');
        readln(n);
        if (n < 1) or (n > MAX) then writeln('Leia de novo o que lhe é pedido!!!');
    Until (n >= 1) and (n <= MAX);
end;

procedure constroivector(var v: vector; n: indice);
var
    temp: integer;

begin
    temp:= 1;
    while temp <=  n do
    begin
        writeln;
        write('Escreva um número real: ');
        readln(v[temp]);
        temp:= temp + 1;
    end;
end;

procedure maxminvector(v: vector; n: indice);
var
    i: integer;
    maximo, minimo: real;

begin
    maximo:= v[1];
    minimo:= v[1];
    for i:= 1 to n do
    begin
        if v[i] > maximo then maximo:= v[i] else
        if v[i] < minimo then minimo:= v[i];
    end;
    writeln('Máximo vector: ', maximo:3:1);
    writeln;
    writeln('Minimo vector: ', minimo:3:1);
end;

begin
    repeat
        clearscreen;
        gotoxy(25, 2);
        writeln('Cálculo do Máximo e Mínimo');
        gotoxy(25, 3);
        writeln('--------------------------');
        gotoxy(34, 4);
        writeln('Paulo G.P.');
        writeln;
        lenum(n);
        constroivector(vn, n);
        writeln;
        maxminvector(vn, n);
        writeln;
        write('Repetir (S/N): ');
        readln(tecla);
        uprstring(tecla, true);
    until tecla = 'N';
end.