Исправить Ошибки

program ironiya;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
grazhdanin=record
street,secondname,city:string[50];
house,flat: integer;
end;
file_grazhdanin = file of grazhdanin;
var f:file_grazhdanin; menu:byte;
procedure vvod (var f:file_grazhdanin);
var a:grazhdanin;
begin
if FileExists('ironiya.dat') then
begin
   reset(f);
    seek(f,filesize(f));
    end
  else
  rewrite(f);
  repeat
  writeln('vvedite familiy');
  readln(a.secondname);
  if a.secondname <>'' then
    begin
    writeln('vvedite gorod');
    readln(a.city);
    writeln('vvedite ylicy');
    readln(a.street);
writeln('vvedite dom');
    readln(a.house);
writeln('vvedite kvartiru');
    readln(a.flat);
    write(f, a);
  end;
  until a.secondname='';
  closefile(f);
  end;
 
procedure print(var f:file_grazhdanin);
  var  a:grazhdanin;
  begin
  reset(f);
  while not eof (f) do
    begin
    read (f,a);
   writeln (a.secondname,' ',a.city,' ',a.street,' ',a.house,' ',a.flat);
   end;
   closefile(f);
  end;
procedure ironia (a:grazhdanin);
 
begin
while not eof (f) do
if ( a.city <> a.city) and (a.street=a.street) and (a.flat=a.flat) and (a.secondname<>a.secondname) then begin writeln(a.secondname,' ',a.secondname); a.city:=a.city; end;
end;
 
begin
assignfile(f,'ironiya.dat');
  menu:=0;
  repeat
  writeln('1 vvod danix');
  writeln('2 vivod dannih');
  writeln('3  vixod');
  readln (menu);
  case menu of
  1:vvod(f);
  2:print(f);
  3:ironia(f);
    end;
until menu=4;
end.