Вывести в другой файл данные учеников, которые получили в сумме больше 240 баллов (по убыванию баллов)

program ekz;
const max=1000;
var fin,fout:text;
var a:array[1..max] of integer;
k,k1,i,j,p,n,sum:integer;
s:integer;
begin
assign(fin,'text.txt');
reset(fin);
n:=0;
while not eof(fin) and n<max do  begin
n:=n+1;
readln(fin,a[n]);
end;
while not eof(fin) do begin;
p:=pos(' ',s);
name:=copy(s,1,1)+'. ';
delete(s,1,pos(' ',s));
surname:=name+copy(s,1,pos(' ',s)-1);
delete(s,1,pos(' ',s));
p:=pos(' ',s);
while not length(s)>0 do begin
ball:=(copy(s,1,length(s));
val(ball,k,r);
sum:=sum+k;
end;
end;
close(fin);
assign(fout,'text1.txt');
for i:=1 to n-1 do
for j:=n-1 downto i do
if a[j+1]<a[j] then begin
a1:=a[j];
a[j]:=a[j+1];
a[j+1]:=a1;
end;
rewrite(fout);
if sum>240 then
for i:=1 to n do 
s:=name+' '+surname+sum;
writeln(fout,s);
end.

program ekz;
const max=1000;
type zap=record //тип запись с полями
         surname,name:string[20];//фамилия, имя
         sum:integer;//сумма баллов
         end;
var fin,fout:text;
var a:array[1..max] of zap;//массив записей
    s:string;
    a1:zap;  //переменная типа запись=буфер при сортировке
    n,i,j:integer;
begin
assign(fin,'text.txt');//файл в папке с программой
reset(fin);
n:=0;
while not eof(fin) and (n<max) do
 begin
  n:=n+1;
  readln(fin,s); //читаем строки
  a[n].surname:=copy(s,1,pos(' ',s)-1); //фамилия
  delete(s,1,pos(' ',s));
  a[n].name:=copy(s,1,pos(' ',s)-1); //имя
  delete(s,1,pos(' ',s));
  s:=s+' '; //добавим пробел в конец для удобства чтения баллов
  a[n].sum:=0; //сумма баллов
  for i:=1 to 3 do
   begin
    a[n].sum:=a[n].sum+strtoint(copy(s,1,pos(' ',s)-1));
    delete(s,1,pos(' ',s));
   end;
 end;
close(fin);
for i:=1 to n-1 do
for j:=n-1 downto i do
if a[j+1].sum>a[j].sum then //сортируем по убыванию суммы
 begin
  a1:=a[j];
  a[j]:=a[j+1];
  a[j+1]:=a1;
 end;
if a[1].sum<=240 then //если нет нужных
 begin
  writeln('Нет учащихся с суммой балов больше 240');
  exit;   //выходим из программы
 end;
assign(fout,'text1.txt');
rewrite(fout);
for i:=1 to n do   //пишем в новый файл
if a[i].sum>240 then  //если сумма больше 240
//первую букву имени с точкой, фамилию и сумму баллов
writeln(fout,a[i].name[1],'. ',a[i].surname,' ',a[i].sum);
close(fout);
writeln('Файл text.txt прочитан, обработан и найденные данные записаны в файл text1.txt')
end.