Написать программу которая 10 раз выводит на экран Имя и Фамилию. использование цыкл while

Program llllllllll;
var a, b :string;
c:integer;
begin
    writeln(Введите имя);
    readln(a);
    writeln(Введите фамилию);
    readln(b);
    c:=10;
    while cgt;0 do
    begin
        write(a, );
        writeln(b);
        c:=c-1;
    end;
end.