дана последовательность целых чисел а1,а2,..,а20. правильно элементы последовательности равны

Var a: array [1..20] of integer;
    i: integer;
begin
     for i := 1 to 20 do
         readln(a[i]);
     for i := 1 to 20 do
         if (a[i] lt;gt; a[1]) then
         begin
              writeln('Ошибочно');
              exit;
         end;
     writeln('Правильно');
end.

Надеюсь, я верно сообразил задачку, а то время от времени не разобрать... Здесь вначале надобно 20 чисел ввести, а потом она инспектирует, правильно ли, что они все одинаковы)