Одномерный массив в Паскале

Народ, подскажите ошибку в тексте программы, пожалуйста. Сообразить никак не могу :(

Задача такова. Нахождение номера наименьшего элемента в массиве заданной длины среди всех положительных элементов. Длина массива вводится с клавиатуры. Печатать элементы массива по 5 штук, по формату :11. Тип обрабатываемых данных: вещественные.

Вот мой текст программы.
VAR
A :array[1..50] of integer;
N,m,i,min :integer;
Fout :text;
LABEL vvod;
BEGIN
vvod: writeln('Vvedi dlinu massiva');
readln(m);
if m<1 then
begin
writeln('Nelzya rassmatrivat menshe odnogo 4isla');
goto vvod;
end;
min:=32767;
N:=0;
repeat
writeln('Vvedi o4erednoi element');
N :=N+1;
readln(A[N]);
if (A[N]>0) and (A[N]<min) then
min:=A[N];
Num:=N;
until (N=m);
if A[N]<0 then writeln('podxodyas4ix 4isel ne bylo')
else
writeln('nomer naimenshego elementa',' N');
begin
Assign(Fout,'MASSIV.RES');
ReWrite(Fout);
writeln(Fout,'Isxodnyi massiv iz ',n,' elementov');
for i:=1 to N do
begin
write(Fout,A:11);
if i mod 5 = 0 then writeln(Fout);
end;
end;
Close(Fout);
END.