Ошибка в коде. Работа с последовательностями чисел (Pascal)

[Uniastrum]

Всем доброго времени суток.
Решала задачку, но в результатах расчёта программа не выполняет все требования, ясное дело, что значит, что я их и не задала, но вот не знаю как, помогите, пожалуйста!

Само задание:
Найти максимальное значения в последовательности вводимых чисел. При поиске пропускать числа из диапазона от 10.1 до 50.1.
Остановить обработку при вооде заданного кол-ва чисел.
Тип обрабатываемых данных :веществ.

PROGRAM N3
VAR
N, i :integer;
A, Max :real;
Label vvod, prov;
BEGIN
vvod: writeln ('Сколько будет чисел?')
readln (N);
if N<1 then
begin
writeln ('Нельзя анализировать менее 1 числа')
goto vvod
end;
Max :=-1e30;
for i:=1 to N do
BEGIN
writeln ('Введите очередное число <10.1 и >50.1');
readln (A);
if (A<10.1) or (A>50.1) then
if A>Max then
Max :=A;
end;
if Max
writeln ('Максимальное значение=') , Max:10:2);
else
if (Max :=-1e30)
writeln ('Подходящих чисел нет');
END

То неправильно показывает максимальное значение, то не пишет, что нет подходящих чисел( Уж и не знаю, что делать!

[Александр Павлович]

Ваш текст не будет компилироваться. Попробовал поправить по минимуму:

PROGRAM N3
VAR
N, i :integer;
A, Max :real;
Label vvod, prov;
BEGIN
vvod: writeln ('Сколько будет чисел?')
readln (N);
if N<1 then begin
writeln ('Нельзя анализировать менее 1 числа')
goto vvod
end;{if}
Max :=-1e30;
for i:=1 to N do BEGIN
writeln ('Введите очередное число <10.1 и >50.1');
readln (A);
if (A<10.1) or (A>50.1) 
then if A>Max then Max :=A;
end;{for}
if Max>1e-30 
then writeln ('Максимальное значение=') , Max:10:2);
else writeln ('Подходящих чисел нет');
END.

[Serge_Bliznykov]

вместо метки vvod и команды goto я бы рекомендовал использовать цикл repeat .. until:

var
  N, i :integer;
  A, Max :real;
begin
  repeat
    writeln('Сколько будет чисел?');
    readln(N);
    if N < 1 then
      writeln('Нельзя анализировать менее 1 числа');
  until N >= 1;
....