Дана последовательность целых чисел а1, а2,.an. Образовать новую последовательность, выбросив из исходной те члены, которые равны min а1, а2,.an. С

Дана последовательность целых чисел а1, а2, ..an. Образовать новую последовательность, выбросив из исходной те члены, которые равны min (а1, а2, ..an).
Составила такую программу:
Program NoName;
const n=5;
var mas:array [1..n] of integer;
masa:array [1..n] of integer;
i,min:integer;
Begin
 writeln(‘Введите целые числа’);
For i:=1 to n do
 readln(mas[i]);
min:=mas[i];
For i:=1 to n do
  If min<mas[i] then min:=mas[i];
For i:=1 to n do
 If mas[i]<>min then
  begin
   masa[i]:=mas[i]; 
  end;
For i:=1 to n do writeln (masa[i]);
end.

Но она не выдает нужной последовательности, а понять где ошибка у меня не получилось :( Помогите пожалуйста

  • Извините, но смысла в работе Вашей программы я не нашёл.
    Я написал свой вариант, если не подходит — пишите.

    Program I_have_got_name;
    const n = 5;
    var   mas:array[1..n] of integer; 
            i,min:integer;
     begin 
       min:=maxint; 
       writeln(‘Введите целые числа’); 
       for i := 1 to n do   
        begin     
         readln(mas[i]);   
         if mas[i]<min then min:=mas[i]; 
        end; 
       For i:= 1 to 5 do   
         If mas[i]<>min then write(mas[i],’ ‘);
    end.