Algoritmo para ler um valor N e em seguida ler N números inteiros e escrever o maior

//Faça um algoritmo para ler um valor N e em seguida ler N números inteiros e escrever o maior

//número lido.

program Nnumeros;

uses crt;

var

n,i,k,numero:integer;

begin

repeat

writeln('Informe um numero N (inteiro!)');

readln(n);

if (n<=0) then

begin

writeln('ERRO, o numero deve ser maior que zero!');

end;

until n>0;

for i:=1 to n do

begin

k:=numero;

writeln('informe o numero',i,' :');

readln(numero);

if (k > numero) and (k<>0) then

begin

numero:=k;

end;

end;

writeln('maior numero informado = ',numero);

readkey;

end.