Turbo Pascal массивы

[-COREY-]

Помогите,пожалуйста решить задачу.Дан массив из н чисел.Необходимо вывести его наибольший положительный элемент,если положительных элементов нет,вывести об это сообщение

Program prog1;
uses crt;
type rec=record
     leg:boolean;
     num:integer;
     end;
var a:array[1..5] of rec;
    i,j,z:integer;
begin clrscr;
for i:=1 to 5 do
readln(a[i].num);
for i:=1 to 5 do
begin
if a[i].num>0 then a[i].leg:=true
else a[i].leg:=false;
end;
for i:=1 to 5-1 do
 for j:=1 to 5-i do
 if a[i].num>a[i+1].num then
  begin
    z:=a[i].num;
    a[i].num:=a[i+1].num;
    a[i+1].num:=z;
  end;
for i:=5 downto 1 do
if a[i].leg=true then break;
begin
writeln(a[i].num);
end;
readkey;
end.

Подскажите,как вывести сообщение,если все элементы будут отрицательные?

[ОДИНОЧЕСТВО В СЕТИ]

заведи переменную
например p присвой ей значение 0;
и если элемент массива >0 then p:=p+1;

ну а в конце если p=0 then мессага
а если p<>0 то твой макс элемент!