Массив записей

program modul;
uses crt;
Const n = 3; m = 3; {n-строка, m-столбец}
l = 10;
type
  kniga = record
    surname : string; //фамилия    
    name : string; //имя
    otchestvo: string; //отчесвто
    street: string; //улица
    number : string; //телефон
    end;
 Var
B: array [1..n, 1..m] of integer;
p,A,x,i, q, y, z, k, j :integer;
 phone : array [1..l] of kniga;
s:string;
begin
p:=0;
Randomize;
A:=random(6);
writeln(A);
writeln('выпало число 3-сторка');
writeln('ввести строку');
writeln(' ______________________');
readln(s);
x:=length(s);
writeln(s[2],s[x-1]);
writeln('сумма последнего столбца');
writeln(' ______________________');
for q := 1 to n do 
  for y := 1 to m do
  begin
      B[q,y]:=random(10);
        end;
  WriteLn('Исходный массив:');
  for q := 1 to n do
    begin
      for y := 1 to m do Write(B[q,y],' ');
      WriteLn
    end;
    for q:=1 to 3 do
    for y:=1 to 3 do
    if y=3 then
    p:=p+b[q,y];
    Writeln('сумма =',p);
    writeln('______________________________');
    writeln('Enter');
for k:= 1 to 1 do begin
 
  write('fam: ');    
  readln(phone[k].surname);
  write('nam: ');
  readln(phone[k].name);
  write('ot: ');
  readln(phone[k].otchestvo);
  writeln(' ' );
    end;
 
  
  
    writeln('Введите: 1-Фамилия, 2- Имя, 3-Отчество');
    readln(j);
    
    if j=1 then 
    writeln('fam:', phone[1].surname);
    if j=2 then
    writeln('nam:', phone[1].name);
    if j=3 then
    writeln('ot:', phone[1].otchestvo);
    
 
        readln(z);
    
      writeln('Фамилия: ' , phone[z].surname, ', Имя: ', phone[z].name,', отчество: ', phone[z].otchestvo,', номер: ' ,   phone[z].number, ', улица ', phone[z].street );
    
end.

function Power(x, y : Real) : Real;
begin
    Power := Exp(y * Ln(x));
end;
 
function Power2(x, y : Integer) : LongInt;
var
    i : Integer;
    Result : LongInt = 1;
begin
    for i := 1 to y do
        Result := Result * x;
    Power2 := Result;
end;