[lenaustkz84]

Вот новый код. Теперь, наверное, точно все работает.
И для двойки. И для единицы.
Вот как бы только написать его по-красивее?
А то уж больно он мне не кажется таким, как надо.

Код:

{Программа для определения максимального  и минимального  значения
 из 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,' чисел(-а) через пробел: ');

           case N of
  
          1 : begin read(a); max:=a; writeln(); writeln('max=',max); end;

          2 : begin read(a,b);
                  if (a>b) then
                     begin max:=a; min:=b; end
                  else begin max:=b; min:=a; end;
                     writeln();
                     writeln('max=',max);
                     writeln('min=',min);
               end;

           else
            begin
                 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);

           end; {end else case}

        end; {end case}

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