С клавиатуры вводить символы, пока не будет введен символ «z» или «Z» — Pascal(Паскаль)

program third;
    var simbol   :char;
        condition:boolean;
begin
  condition:=true;
  repeat
  write('vvedite simbol: ');
  readln(simbol);
  if ((simbol = 'z') or (simbol = 'Z')) then condition:=false;
  until  condition = false;
  Readln;
end.