Вывести на печать данные обо всех клиентах определенного банка

{Основная программа. }
uses op, obrabotka;
var
      sved :  sved1;
begin
    vvod (sved);
    spravka (sved);
    writeln('Сведения о клиентах определенного банка');
    with sved[i] do
        writeln(full_name:12, sum:6, address:6)
end.

{Модуль 1.описания данных}
unit op;
interface
const
      n=8;
type
      spravka= record      
                            client:record
                            full_name : string ;
                            sum : real;
                            address   : string;
                            country: string;
                            bank    : record
                                    name: string;
                                    annual_percent: real;
                                           end;
       end;
     var sved: array[1..n] of spravka;
        Var
      n:  byte;
      sved       :  svedd;
      implementation;
end.

{Модуль 2. }
unit obrabotka;
interface
uses op;
  procedure vvod (var sved:sved1);
  procedure spravka (var sved:sved1);
implementation
procedure vvod;
var
  i     : byte;
begin
 for i:=1 to n do
      with sved[i] do
        begin
           write('Введите ФИО клиента ', i, 'клиента');
           readln(full_name);
           write('Введите сумму вклада ', i, 'в банке');
           readln(sum);
           write('Введите адрес ', i, 'банка ');
           readln(address);
           write('Введите страну', i, 'банка');
           readln(country);
           write('Введите название ', i, 'банка');
           readln(name);
           write('Введите годовой ', i, 'процент');
           readln(annual_persent);
           with spravka do begin
            readln(full_name);
                    readln(sum);
                      readln(address);
                            end;
         end;
end;
procedure spravka;
var
     i     : byte;
begin
    writeln('Cправкa о клиентах определенного банка');
    for i:=1 to n do
         with sved[i] do
                     if name=name then
                                writeln(full_name:12, sum:6, address:6);
end;
end.

 var sved: array[1..n] of spravka;