Помогите задание по Delphi 7

Не могу прикрепить файл, вот код program Project2; {$APPTYPE CONSOLE} uses   SysUtils; var  n,i:integer; begin   i:=0;   Writeln('Parol');   repeat       read (n);       i:=i+1;     until (i=5) or (n=111);     if i=5 then     exit     else if n=111 then begin     Write('Molodec');     end;       Readln;       Readln;  end.