FPS. Kaip sukurti tokį ciklą?

Kilo noras pasimokyt pascalio kalbos. Pradėjus rašyt pirmą programą kilo klausimas - kaip padaryt, kad pvz. apskaičiavus perimetrą vėl parodytų "Jei nori apskaičiuoti kvadrato plotą įrašyk "1", jei perimetrą "2"" ir programa būtų vykdoma vėl iš naujo.

program kvadrat;
   var per, plot, kint : longint; //kint - 1,2
begin
 Writeln('Jei nori apskaičiuoti kvadrato plotą įrašyk "1", jei perimetrą "2"');
 Readln(kint);
 If kint = 1 //jei 1 - skaičiuojamas plotas
 then
   begin Writeln('Įvesk kvadrato kaštinės ilgį "a"');
   Readln(plot);
   plot := plot * plot;
   Writeln('Plotas lygus ', plot);
   Readln();
   end
 else if kint = 2 // jei 2 - skaičiuojamas perimetras
 then
   begin
   Writeln('Įvesk kvadrato kaštinės ilgį "a"');
   Readln(per);
   per := per * 4;
   writeln('Perimetras lygus ', per);
   end
   else // Jei skaičius nei 1, nei 2
   Writeln('Įvedėte netinkamą skaičių, įrašyk iš naujo');
   Readln();
end.

Repeat until ciklą pasižiūrėt gali :)

Žinau apie tai, bet nepavyksta praktiškai pritaikyt.