[lenaustkz84]

Вот еще по совету lxa85 попробовала написать код с применением FOR.
Что-то тоже не совсем правильно получается.
Нужно вводить больше значений для сравнения, чем требуется.

Код:

{Программа для определения максимального
и минимального  значения из N введенных чисел}

program max_i_min_iz_N_for;
    uses crt;
    var N,min,max,a,i,m:integer;

    BEGIN

      clrscr;

        repeat
              write('Введите любую цифру: '); readln(N); writeln();
              write('Введите ',N,' чисел(-а) через пробел: ');
                   read(a);
                   max:=a;
                   min:=a;

               for i:=1 to N do
               begin
                   readln(a);
                   if(a>max)then max:=a else max:=max;
                   if(a<min)then min:=a else min:=min;
               end;

           writeln();
           writeln('max=',max);
           writeln('min=',min);
           writeln();

           writeln('Для продолжения программы нажмите цифру 1');
           writeln('Для завершения программы нажмите цифру 2'); writeln();
           readln(m);
           writeln();

     until(m=2);
END.

Я уже достала Вас своими вопросами и кодами, наверное.

Но вообще стукаюсь глазами и не вижу, что делаю не так.

Не сочтите за труд, подскажите, где я ошибаюсь.