Записать в первый файл учеников с ростом от 175 см, в другой — с избыточным весом

Const FileName = 'Students.txt';
      N = 100;
Procedure CreateFile;
Var T, T1: Text;
    k: integer;
    S: String;
begin
Randomize;
Assign (T, FileName);    Assign (T1, 'Surnames.txt');
Reset (T1);    Rewrite (T);
WriteLn (T, 'Фамилия.          Рост(см).         Вес(кг).');
WriteLn (T);
for k:=1 to N do begin
                 ReadLn (T1, S);
                 While Length (S) < 12 do S:=S + ' ';
                 WriteLn (T, S, (Random(10) + 13)*10 : 10, (Random(10) + 3)*10 : 19);
                 end;   
Close (T);    Close (T1);                    
end;
Procedure HandleFile1;
Var r: integer;
    S: string;
    T, T1: Text;
begin
Assign (T, FileName);    Assign (T1, 'Basketball.txt');
Reset (T);    Rewrite (T1);
WriteLn (T1, 'Кандидаты для занятий баскетболом');
While not Eof (T) do begin
                     Read (T, S);
                     ReadLn (T, r);
                     if r >= 175 then WriteLn (T1, S);
                     end;
Close (T);    Close (T1);
end;
Procedure HandleFile2;
Var r, d: integer;
    S: string;
    T, T1: Text;
begin
Assign (T, FileName);    Assign (T1, 'Overweight.txt');
Reset (T);    Rewrite (T1);
WriteLn (T1, 'Ученики с избыточным весом');
While not Eof (T) do begin
                     if Eoln (T) then ReadLn (T);
                     Read (T, S);
                     Read (T, r);
                     Read (T, d);
                     if (r - d) < 100 then WriteLn (T1, S);
                     end;
Close (T);    Close (T1);
end;}
Begin
CreateFile;
HandleFile1;
HandleFile2;
End.

readln(f,s);
Delete(s,1,Pos(' ',s));{Удаляем все что есть в строке до первого пробела}
s1:=Copy(s,1,Pos(' ',s)-1);{Потом в строку s1 копируем всё что осталось до пробела}
Val(s1,n,k);{строку s1 переводим в число n для сравнения дальнейшего}

Type Std=Record
 Fam:string[15];
 Rost:byte;
 Ves:byte;  
End;
Var f,g,h:file of std;

readln(f,s);
Delete(s,1,Pos(' ',s));{Удаляем все что есть в строке до первого пробела}
Delete(s,1,Pos(' ',s));{2 раз применяем чтобы добраться до веса Удаляем все что есть в строке до первого пробела}
Val(s,n,k);{строку s переводим в число n для сравнения дальнейшего}

Procedure HandleFile1;
Var r, ValErr: integer;
    S, S1: string;
    T, T1: Text;
begin
Assign (T, FileName);    Assign (T1, 'Basketball.txt');
Reset (T);    Rewrite (T1);
WriteLn (T1, 'Кандидаты для занятий баскетболом');
While not Eof (T) do begin
                     ReadLn (T, S);
                     Delete(S, 1, Pos(' ',S));
                     S1:= Copy(S, 1, Pos(' ',S)-1);
                     Val(S1, r, ValErr);
                     if r >= 175 then WriteLn (T1, S);
                     end;
Close (T);    Close (T1);
end;

t:=s;

writeln('Фамилия: ',Copy(t,1,Pos(' ',t)-1),' Рост: ',n);