не работает

program qq;

type
  car = record
    number: integer;
    marka: string[30];
    fio: string[40];
  end;

var
  prog_qq: array[1..10]of car;
  num_array: 1..10;
  fio: string[40];
  yes: boolean;
i:integer;




procedure write_car(num: integer);
begin
  writeln('Программа № ', num);
  with prog_qq[num_array] do
  begin
    writeln('Ф.И.О.:', fio);
    writeln('Марка:', marka);
    writeln('Номер машины:', number);
  end;
end;

begin
  for num_array := 1 to 1 do
    for i:=1 to 3 do begin writeln('Данные ', num_array, '-й программе');
  with prog_qq[num_array] do
  begin
    write('Ф.И.О.:');READLN(fio);
    write('Марка:');readln(marka);
    write('Номер машины:');readln(number);
  end;end;
  writeln;
  writeln('Поиск информации по фамилии');
  writeln;
  write('Введите фамилию водителя:');
  readln(fio);
  yes := false;
  for num_array := 1 to 10 do
    if prog_qq[num_array].fio = fio then
    begin
       for i:=1 to 1 do begin writeln('Данные ', num_array, '-й программе');
  with prog_qq[num_array] do
  begin
    write('Ф.И.О.:');READLN(fio);
    write('Марка:');readln(marka);
    write('Номер машины:');readln(number);
  end;end;
      yes := true;
    end;
  if (not yes) then write('Нема ', fio);


end.