Задача на отбор чисел из строки

var
  k, i, j, n, m1 : byte;
  a : array[1..200] of string; //массив строк с именами и баллами
  exam : array[1..200] of integer; //массив со средними баллами 
  s : string;
begin
  readln(n);
  for i:=1 to n do
    readln(a[i]);
  for i:=1 to n do
    for j:=1 to length(a[i]) do
      if (a[i][j]=' ') and (m1=0) then m1:=j;
      if (a[i][j]=' ') and (m1<>j) then 
        else
          begin
            for k:=m1+1 to j do
              s:=s+a[i][k];            
            if (strtoint(s)>=40) and (exam[i]<>-1) then 
              inc(exam[i], strtoint(s));  
            else
              exam[i]:=-1;  //если хотя бы один экзамен меньше сдан <40, то приваиваем -1
            m1:=0;
            s:='';         
          end;
  for i:=1 to n do
    write(exam[i], ' '); //программа не закончена
end.

uses crt;
type abit=record
          fam:string[20];
          sum:integer;
          end;
var a:array[1..200] of abit; //массив записей
    n,k,i,j,b,c,sm:integer;
    s,fm,s1:string;
    tmp:abit;
    f:boolean;
begin
repeat
write('Количество абитуриентов до 200 n=');
read(n);
until n in [1..20];
k:=0;//сколько могут пройти
for i:=1 to n do
 begin
  writeln('Абитуриент ',i);
  readln(s);//читем введенную строку из фамилии и баллов, проверку не делаю
  f:=true;//проходит
  sm:=0;//сумма баллов
  s:=s+' ';
  fm:=copy(s,1,pos(' ',s)-1);
  delete(s,1,pos(' ',s));
  while(pos(' ',s)>0)and f do
   begin
    s1:=copy(s,1,pos(' ',s)-1);
    val(s1,b,c);
    if b<40 then f:=false
    else
     begin
      sm:=sm+b;
      delete(s,1,pos(' ',s));
     end;
   end;
  if f then
   begin
    k:=k+1;
    a[k].fam:=fm;
    a[k].sum:=sm;
   end;
 end;
if k<5 then
 begin
  writeln('Институт не добрал ',25-k,' студентов');
  exit;
 end;
clrscr;
//отсортируем по убыванию
for i:=1 to k-1 do
for j:=i+1 to k do
if a[i].sum<a[j].sum then
 begin
  tmp:=a[i];
  a[i]:=a[j];
  a[j]:=tmp;
 end;
writeln('Первые 5 абитуриентов:');
for i:=1 to 5 do
writeln(a[i].fam,' ',a[i].sum);
if (k>5)and(a[6].sum=a[5].sum) then
 begin
  writeln('Дополнительно отобраны:');
  i:=6;
  while a[i].sum=a[5].sum do
   begin
    writeln(a[i].fam,' ',a[i].sum);
    i:=i+1;
   end;
 end;
end.