Pascal. Задача 3-7

var
  a, maximum , minimum : integer;
begin
  write('Введите число (0 - Закончить ввод): ');
  read(a);
  maximum := a;
  minimum := a;
  while a <> 0 do begin
    if a > maximum then maximum := a;
    if a < minimum then minimum := a;
    write('Введите число: ');
    readln(a);
  end;
  writeln('Максимум - минимум: ', maximum - minimum);
end.