Помогите пожалуйста )))Заранее спасибо

1) С использованием цикла for:
Program P1;
uses crt;
var a, i: integer;
n, s: string;
label l, m;
begin
l:;
clrscr;
write ('Введите Ваше имя: ');
readln (n);
write ('Введите Вашу фамилию:');
readln (s);
for i:=1 to 11 do begin
writeln (n);
writeln (s);
end;
write ('Будет ли еще 1 пользователь? 1 - "да", 2 - "нет"?: ');
readln (a);
if a=1 then goto l;
if a=2 then goto m;
m:;
readkey;
end.
2) С использованием цикла while:
Program P2;
uses crt;
var a, i: integer;
n, s: string;
label l, m;
begin
l:;
clrscr;
write ('Введите Ваше имя: ');
readln (n);
write ('Введите Вашу фамилию:');
readln (s);
i:=1;
while i<11 do begin
writeln (n);
writeln (s);
end;
write ('Будет ли еще 1 пользователь? 1 - "да", 2 - "нет"?: ');
readln (a);
if a=1 then goto l;
if a=2 then goto m;
m:;
readkey;
end.
3) С использованием цикла repeat:
Program P3;
uses crt;
var a, i: integer;
n, s: string;
label l, m;
begin
l:;
clrscr;
write ('Введите Ваше имя: ');
readln (n);
write ('Введите Вашу фамилию:');
readln (s);
i:=1;
repeat
writeln (n);
writeln (s);
i:=i+1;
until i=11;
write ('Будет ли еще 1 пользователь? 1 - "да", 2 - "нет"?: ');
readln (a);
if a=1 then goto l;
if a=2 then goto m;
m:;
readkey;
end.