Задача 3 Урок 12.1

Задача 3 Урок 12.1:

Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу.

var i, n: char;
begin
  i := '#';
  repeat
    write('vvedite chislo: ');
    readln(n);
    if (i <> n) then
      writeln('& ');
  until(i = n);
  write('konec ');
  readln;
end.  

КОНСОЛЬ:

vvedite chislo: !
&
vvedite chislo: $
&
vvedite chislo: #
konec