[lenaustkz84]

CyberDaemon, ну вот я так и сделала уже.
Добавила еще две переменных.
Но мне код не совсем нравиться.
Хотелось как-то в одной ячейке записывать и значения сравнивать с max и min.
Не хотелось еще задействовать две штуки дополнительно.
Хотя может и нормальный код...
Я еще мало в этом разбираюсь

Код:

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

uses crt;

var N,min,max,a,b,c,i,m:integer;

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

                 if (a>b) then
                    begin max:=a; min:=b; end
                else begin max:=b; min:=a; end;

              i:=3;

              repeat
                 read(c);

                    if(c>max) then max:=c else max:=max;
                    if(c<min) then min:=c else min:=min;

                    i:=i+1; c:=0;

              until(i>N);

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

        until(m=2);
END.

Новый код работает без ошибок.
С вводом любых значений, и положительных, и отрицательных.