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

var a:array [1..10000] of integer;
    i,k,min,t,n:integer;
begin
randomize;
writeln ('Введите количество элементов массива');
readln (n);
writeln ('Исходный массив:');
for i:=1 to n do
begin
     a[i]:=random (200)-100;
     write (a[i], ' ');
end;
min:=a[1]; k:=1;
for i:=1 to n do
    if a[i]<min then begin min:=a[i]; k:=i; end;
t:=a[n];
a[n]:=a[k];
a[k]:=t;
writeln;
writeln ('Итоговый массив:');
for i:=1 to n do write (a[i],' ');
end.

const n=3;
        m=4;
var a: array [1..n, 1..m] of real;
    i,j,k:integer;
    p1,p2,f:real;
begin
randomize;
writeln  (' Исходный массив');
for i:=1 to n do
    for j:=1 to m do
    begin
    f:=random (20)-10;
    a[i,j]:=f/3;
    write (a[i,j]:2:2,' ');
    end;
writeln;
writeln ('Введите диапазон чисел p1 и p2');
readln (p1, p2);
if p1>p2 then writeln ('Неверный диапазон');
k:=0;
for i:=1 to n do
    for j:=1 to m do
    begin
    if (p1<=a[i,j]) and (a[i,j]<=p2)
    then inc (k);
    end;
writeln ('Количество элементов массива, удовлетворяющих диапазону = ', k);
end.

var  a: array [1..900] of integer;
     i:integer; n:byte;
begin
write ('Число n = ');
read (n);
if n>27 then writeln ('Трехзначных чисел с такой суммой нет')
else writeln ('Трехзначные числа, сумма которых = ', n);
for i:=1 to 900 do
begin
     a[i]:=i+99;
     if (a[i] div 100) + ((a[i] mod 100) div 10) + (a[i] mod 10) = n
     then write (a[i], ' ');
end;
end.

var f,b,i:integer;
    t:char;
    s,c:string;
begin
writeln('Введите последовательность символов');
f:=0; b:=0;
readln (s);
for i:=1 to length(s) do
begin
      c:=copy (s,i,1);
      if ('0'<=c) and (c<='9')
      then inc(f);
      if  (('A'<=c) and (c<='Z') or ('a'<=c) and (c<='z'))
      then inc (b);
      if  (('À'<=c) and (c<='ß') or ('à'<=c) and (c<='ÿ'))
      then inc (b);
end;
writeln ('Количество цифр = ', f);
writeln ('Количество букв = ', b);
end.