Распечатать фамилии парней старше 20 лет и чей рост более 180 см

type 
  Date=record
    Day: 1..31;
    Month: (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec);
    Year: Integer;
  end;
 
Теперь можно объявить переменные типа Date:
 
var d1,d2: Date;

d1.Day:=9;
d1.Month:=Sep;
d1.Year:=2004;

d2:=d1;

Assign(f,name)

writeln(переменная);

type 
  spi=record
    pol: 1..2;
    family: string
    vozr: Integer;
    rost:integer;
  end;

unit mod2;
interface
type m = record
         family:string[20];
         number:integer;
         end;
tfile=file of m;
var st:m;
nam,ch1: array[1..100] of string;
ch: array[1..100] of integer;
stri:string;
n:integer;
procedure file1(var f:tfile);
procedure vivod(var f:tfile);
procedure poisk;
implementation
procedure file1(var f:tfile);
var i:integer;
    
begin
 assign(f,'input.txt');
 rewrite(f);
 write('Сколько записей n=');
 readln(n);
 for i:=1 to n do
  begin
  write('имя',i,'-ого человека: ');
  readln(st.family);nam[i]:=st.family;
  write('номер',i,'-ого человека: ');
  readln(st.number);ch[i]:=st.number;
  write(f,st);
 end;
 close(f);
 end;
 procedure vivod(var f:tfile);
 var st:m;
 begin
  assign(f,'input.txt');
  reset(f);
  while not eof(f) do
   begin
    read(f,st);
    writeln(st.family,' ',st.number);
   end;
 close(f);
 end;
 procedure poisk;
 var i,j:integer;
 begin
  for i:=1 to n do 
   begin
    ch1[i]:=inttostr(ch[i]);
    stri:=ch1[i];
     for j:=1 to length(stri) do
      begin
       if stri[j]='7' then begin writeln(nam[i]); break; end;
      end;
   end;   
 end;
end.

uses mod2;
var m:integer;
    f:tfile;
begin
repeat
writeln('1-создать файл');
writeln('2-вывести файл');
writeln('3-напечатать фамилию, содержащую цифру 7');
writeln('4-выход');
readln(m);
case m of
1:file1(f);
2:vivod(f);
3:poisk;
4:exit;
end;
until m=4;
end.