Составить программу, которая по номеру квартиры выдает фамилию ее владельца — Pascal(Паскаль)

var kv:array[1...100]of string[20];
     n,i:byte;
begin
write('Количество квартир до 100 n=');
readln(n);
writeln('Введите фамилии владельцев:');
for i:=1 to n do
 begin
  write('Квартира ',i,'   ');
  readln(kv[i]);
 end;
writeln;
write('Введите номер квартиры до ',n,' i=') ;
readln(i);
write('Фамилия владельца ',kv[i]);
readln
end.

Program C;
var A:integer;
begin
    write('vvedite nomer kvartiry: ');Read(A);
     case A of
             1: write ('Petrov');
             2: write ('Sidorov');
             3: write ('Ivanov');
             4: write ('Maleev');
             else write ('oshibka')
     end;
end.