Wyświetlanie nazwisk na podstawie litery podanej przez użytkownika

Witam, mam problem ze stworzeniem małej bazy w Pascalu.
Tu jest skrypt:

program baza;
uses
Crt;
const n=1000;
var nazwy: array [1..n] of string;
    liczby: array [1..2] of string;
 i:integer;
 a: char;
begin
liczby[1]:='osób';
liczby[2]:='osoby';
Writeln ('Podaj liczbę osób');
readln (i);
clrscr;
if (i=1) then
begin
liczby[1]:=liczby[2];
end;
Writeln ('Wypisz  dane',' ',i,' ',liczby[1],' ','zcazynając od NAZWISKA');
for i:=1 to i do
begin
Readln (nazwy[i]);
end;
for i:=1 to i do  
begin
Writeln(nazwy[i]);
end;
readln;
end.

W zadaniu chodzi o to aby program pobrał od użytkownika ilość nazw osób (imię+nazwisko), a następnie wyświetlił tylko te nazwiska, które zaczynają się na literę podaną z klawiatury. Trochę nad tym siedziałem, ale usunąłem głupoty, które wcześniej tam były:)

for i:=1 to i do

Nie możesz robić czegoś takiego - po słówku to musisz podać jakąś stałą lub zmienną, ale inną od i;

for i:=1 to i do  
begin
Writeln(nazwy[i]);
end;

W tej pętli najpierw sprawdź czy nazwy[i][1] = a i jeśli tak - wypisz łańcuch na ekran konsoli; Przed tą pętlą pobierz od użytkownika literkę i wpisz ją do zmiennej a.