Паскаль входной файл содержит данные о пользователях социальных сетей в виде: иванов иван м 42 петрова анна ж 26 вывести в выходной файл фамилии и имена всех мужчин младше 30 лет.

Var vz: integer;
    fin,fout: text;
    st: string;
begin
  assign(fin,'data.in');
  reset(fin);
  assign(fout,'data.out');
  rewrite(fout);
  while not eof(fin) do
  begin
    readln(fin,st);
    vz:=StrToInt(Copy(st,length(st)-1,2));  
    if (vz<30) and (st[length(st)-3]='М') then
       writeln(fout,Copy(st,1,length(st)-5));
  end;
  close(fin);
  close(fout);
end.
 
{ data.in

Иванов Иван М 26
Перова Марья Ж 21
Петров Василий М 32
Сидоров Андрей М 18
    
  data.out
 
Иванов Иван
Сидоров Андрей

}