Напишите маленькую программу угадывания пароля не более чем из 3-х попыток. половина готова

Вот решение подобной задачи на языке паскаль.
Program abc;
var b,c : string;begina:=0;Readln(b);while a<3 dobeginReadln(c);If c=b then beginWriteln('доступ резрешен');endelse begina:=a+1;; end;end;Writeln('вы не угадали');end.