напишите программку на языке паскаля через цикл while, которая определяет наибольшее

var
  a, m : integer; // объявляем переменные целочисленного типа.
begin
  writeln (введите последовательность положительных чисел, окончание ввода - ноль:);
  readln(m); // считываем 1-ое число, считаем его наибольшим.
  a:= 1;
  while a lt;gt; 0 do    // начало цикла.
      begin
         readln (a);          // считываем число, введенное с клавиатуры.
         if (a gt; m) then   // если число больше максимального.
         m := a;             // считаем текущее число наибольшим.
      end;
  write (Наибольшее число из введенной последовательности одинаково: , m); // вывод строчки.
end.