Доделать процедуру

unit op;
interface
const
     n=3;
type
     lawsuit=record
     data:record
     day:1..31;
     month:1..12;
     year:1990..2011;
     end;
     case_at_law:string;
     plf:record
     number:word;
     company_name:string[15];
     end;
     dft:record
     number:word;
     company_name:string[15];
     end;
           end;
st=array[1..n] of lawsuit;
implementation
end.

unit obrabotka;
interface
uses op;
 procedure vvod(var temp:st);
implementation
var
     year:st;
procedure vvod(var temp:st);
var
     i:byte;
begin
 for i:=1 to n do
    with temp[i] do
      begin
        write('введите дату ',i,' судебного дела*: ');
        with data do begin
                       readln(day);
                       readln(month);
                       readln(year);
                     end;
        write('введите предмет ',i,' судебного разбирательства*: ');
        readln(case_at_law);
        write('введите номер телефона и название фирмы для ',i,' исца*: ');
        with plf do begin
                      readln(number);
                      readln(company_name);
                    end;
        write('введите номер телефона и название фирмы для ',i,' обвиняемого: ');
        with dft do begin
                      readln(number);
                      readln(company_name);
                    end;
      end;
end;
procedure
end.

uses op, obrabotka;
var
   temp:st;
   i:byte;
begin
  vvod(temp);
  writeln('данное дело чаще всего возбуждали в ', i, 'году ');
end.