Найти самого старого мужчину и самую молодую женщину в списке группы - 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»

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

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


СОХРАНИТЬ ССЫЛКУ
Похожие ответы