This is my code

var n,i:integer;
baza:array[1..1000]of string[2];
tmp,bukva:string[2];
begin
read(n);
i:=0;
repeat
i:=i+1;
readln(baza[i]);
until i=n;
read(bukva);
for i:=1 to n do
begin
tmp:=baza[i];
if bukva=tmp[1] then writeln(tmp);
end;
end.

Where mystake? I think to this code is right, but i have WA in test1. Help please