Pascal

Zdravím,mám takový dotaz učím se programovat v Pascalu, přes online kurzy a mám napsat tenhle velmi jednoduchý program

....
.....
......

begin
write('Zadej heslo');
read(A);
if A='Ahoj'
then
begin ClrScr;
textcolor(8);
write('spravne');
end
else
write ('Spatne')

end.

A můj dotaz je ten,že bych potřeboval poradit,jestli by se nějak nedalo připsat,aby program při špatném zadání hesla (A);
znovu vyžádal napsání hesla,aby se to prostě opakovalo dokud by to A nebylo spravně.
Dík za odpověď