Выделить число из строки

Program LR6;
uses crt;
      type z = record
       faminc:string[25];
       pol:string[5];
       DDMMGG:string[10];    
       sum:integer;
      end;
var
   g,f:file of z;
  b,x,y,r:z; m,sr,t,o,u,max,min,i,l,k:integer;
  q,n:string; c:byte; d:real;
begin
assign(f, 'file.dat');
assign(g, 'fileG');
rewrite(f);
writeln('Сколько значений вы хотите ввести?');
readln(l);
for i:=1 to l do begin
 writeln('Запись ', i);
 writeln('Введите фамилию и инициалы');
 readln(r.faminc);
 writeln('Введите пол(муж/жен)');
 readln(r.pol);
 writeln('Введите дату рождения в столбик');
 readln(r.DDMMGG);
 writeln('Введите сумму вступительных баллов');
 readln(r.sum);
 sr:=sr+r.sum;
 m:=m+1;
 write(f,r);
end;
close(f);
writeln('|-------------------------|-----|----------|---------------------|');
writeln('|          Фамилия        | Пол |   Дата   | Сумма вступительных |');
writeln('|        и инициалы       |     | рождения |      баллов         |');
writeln('|-------------------------|-----|----------|---------------------|');
reset(f);
while not eof(f) do begin
 read(f,r);
 writeln('|', r.faminc:25, '|', r.pol:5, '|', r.DDMMGG:10,'|', r.sum:21, '|');
end;
writeln('|-------------------------|-----|----------|---------------------|');
q:=copy(r.DDMMGG,7,4);
k:=0;
reset(f);
while not eof(f) do begin
 read(f,r);
 if (r.pol = 'муж' ) and (2020-q) then
  k:=k+1
end;
rewrite(g);
if k=0 then writeln('Среди абитуриентов-мужчин призывников нет')
 else begin
  writeln('Список абитуриентов-мужчин призывного возраста');
  reset(f);
  rewrite(g);
writeln('|-------------------------|----------|');
writeln('|          Фамилия        |   Дата   |');
writeln('|        и инициалы       | рождения |');
writeln('|-------------------------|----------|');
  for i:=1 to l do begin
   read(f,r);
   if (r.pol='муж') and (2020-q=18) then begin
                    writeln('|', r.faminc:25, '|', r.DDMMGG:10,'|');
                    writeln('|-------------------------|----------|');
                    end;
  end;
  write(g);

k:=0;
reset(f);
while not eof(f) do begin
 read(f,r);
 s:=copy(r.DDMMGG, 7, 4);
 if (r.pol = 'муж' )  then if(s>='1993') and (s<='2002') then
  k:=k+1
end;
rewrite(g);
if k=0 then writeln('Среди абитуриентов-мужчин призывников нет')
 else begin
  writeln('Список абитуриентов-мужчин призывного возраста');
  reset(f);
  rewrite(g);
writeln('|-------------------------|----------|');
writeln('|          Фамилия        |   Дата   |');
writeln('|        и инициалы       | рождения |');
writeln('|-------------------------|----------|');
  for i:=1 to l do begin
   read(f,r);
   s:=copy(r.DDMMGG, 7, 4);
   if (r.pol='муж') then  if(s>='1993') and (s<='2002') then begin
                    writeln('|', r.faminc:25, '|', r.DDMMGG:10,'|');
                    writeln('|-------------------------|----------|');
                    end;
  end;
  write(g);
 end;