Создайте программу, которая читает N чисел и определяет 2 наименьших и 2 наибольших числа

const
  mx = 100;
var
  i, j, n, t: integer;
  m: array[1..mx] of integer;
begin
  repeat
    write('Количество чисел 1 < N <= ', mx, ';  N = ');
    readln(n)
  until (1 < n) and (n <= mx);
  writeln('Введите числа:');
  for i := 1 to n do read(m[i]);
  for i := 1 to n-1 do
    for j := i+1 to n do
      if m[i] > m[j] then
        begin
          t := m[i];
          m[i] := m[j];
          m[j] := t
        end;
  writeln('Два минимальных числа: ', m[1], ' ', m[2]);
  writeln('Два максимальных числа: ', m[n-1], ' ', m[n])
end.

var
  i, n, t, min1, min2, max1, max2: integer;
begin
  repeat
    write('Количество чисел N > 1;  N = ');
    readln(n)
  until n > 1;
  writeln('Введите числа:');
  read(min2);
  read(t);
  if t < min2 then min1 := t
  else
    begin
      min1 := min2;
      min2 := t
    end;
  max1 := min1;
  max2 := min2;
  for i := 3 to n do
    begin
      read(t);
      if t < min1 then
        begin
          min2 := min1;
          min1 := t
        end
      else if t < min2 then min2 := t;
      if t > max2 then
        begin
          max1 := max2;
          max2 := t
        end
      else if t > max1 then max1 := t;
    end;
  writeln('Два минимальных числа: ', min1, ' ', min2);
  writeln('Два максимальных числа: ', max1, ' ', max2)
end.