Найти самого старого мужчину и самую молодую женщину в списке группы - Pascal ABC

Формулировка задачи:

Всем привет, дали условие "Дан список группы в 10 человек в виде ФАМИЛИЯ ГОД_РОЖД. ПОЛ 15 симв. 4 симв. 1 симв. Иванов 1985 М Петрова 1983 Ж …………………… Найти самого старого мужчину и самую молодую женщину и вывести соответствующие строки." по нему нужно написать программу, примерный код я написал но очень плохо владею языком(работаю на этим),

program Ex1_v1;
 
var
  f: text;
  mass: array[1..10, 1..22] of char;
  i, j: integer;
  b: char;
 
begin
  assign(f, 'SPISOK.txt');
  reset(f);
  for i := 1 to 10 do
  begin
    for j := 1 to 22 do
    begin
      read(f, mass[i, j]);
    end;
    readln(f);
  end;
  close(f);
  assign(f, 'res.txt');
  rewrite(f);
  for i := 1 to 10 do
  begin
    for j := 1 to 22 do
    begin
      write(f, mass[i, j]);
      write(mass[i, j]);
    end;
    writeln(f); writeln;
  end;
  writeln(f);
  close(f);
  
  
  
  begin{--------------------------------------------------------------->(самый старый мужчина)}
    for 
    i := 1 to 10 do 
    begin
      for j := 1 to 22 do 
      begin
        if mass[1, 17] = 'm' then begin
          b := mass[i, 22];
          if b < mass[i + 1, 22] then b := mass[i + 1, 22] else mass[i, 22] := mass[i + 1, 22]; 
        end;
      end;
    end;
    writeln();
  end;
  
  begin{-------------------------------------------------------------->(самая молодая женщина)}
    for 
    i := 1 to 10 do 
    begin
      for j := 1 to 22 do 
      begin
        if mass[1, 17] = 'g' then begin
          b := mass[i, 22];
          if b > mass[i + 1, 22] then b := mass[i + 1, 22] else mass[i, 22] := mass[i + 1, 22]; 
        end;
      end;
    end;
    writeln();
  end;
  
  
  close(f);
end.

Что и как быть дальше не знаю...

Код к задаче: «Найти самого старого мужчину и самую молодую женщину в списке группы - Pascal ABC»

type person=record
                  fam:string[15];
                  grz:integer;
                  pol:char;
                  end;

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Полезно ли:

5 голосов, оценка 4.000 из 5

СОХРАНИТЬ ССЫЛКУ