No dobra, niech więc będzie goto ... label
Musisz tylko napisać, co dokładnie chcesz zrobić, bo nie można napisać
repeat
...
until goto koniec;
bo to nie ma sensu i nie wiem, czy w ogóle dałoby się skompilować
Poniżej daję prosty program, który używa instrukcji goto ... label, ale zamiast pętli repeat ... until. Może to będzie jakaś wskazówka
program gotolabel;
uses Crt;
var ch: Char;
s: string;
label start;
begin
s:= '';
Write('Podaj imie: ');
start:
ch:= Readkey;
Write(ch);
if ch <> #13 then s:= s + ch;
if ch <> #13 then goto start;
Writeln;
Writeln('Masz na imie ', s);
Readln;
end.