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

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