В слове пол изменить первую букву сколько существительных слов получится

Laebro: выбирай procedure MakeArr(a: array of char);
begin
for var i := 0 to a.length - 1 do
begin
Write(a[i]);
end;
end;
begin
var a: string := 'Пол';
var c:= a.ToCharArray;
for var i := 192 to 223 do
begin
c[0] := chr(i);
MakeArr(c);
writeln;
end;
end.