В файле записаны данные о результатах сдачи экзамена. Вывести в другой файл фамилии и имена тех учеников, которые получили больше 80 баллов.

[Вася195]

В файле записаны данные о результатах сдачи экзамена. Каждая строка содержит фамилию, имя и количество баллов, разделенные пробелами:
<Фамилия> <Имя> <Количество баллов>
Вывести в другой файл фамилии и имена тех учеников, которые получили больше 80 баллов. Список должен быть отсортирован по убыванию балла. Формат выходных данных:
П. Иванов 98
И. Петров 96 и так далее
Вот что у меня получается. Помогите, что правильно выполнялись все условия

var s,sAge,s0,fm,im: string;
    age,p,r,t,i,j,c: integer;
    f1,f2: text;
    A: array[1..15] of integer;
begin
  assign(f1, 'input.txt');
  assign(f2, 'output.txt');
  reset(f1); rewrite(f2);
   while not Eof(f1) do begin
   
   readln(f1,s0);
   s:=s0;
    p:=pos(' ',s);
    fm:=copy(s,1,p-1);
    delete(s,1,p);
    p:=pos(' ',s);
    im:=copy(s,1,p-1);
    delete(s,1,p);
    sAge:=copy(s,1,p-1);
    val(sAge,age,r);
 
   if age>80 then begin
   t:=t+1;
   for i:=1 to t do begin
   a[i]:=age;  end;
for i:=1 to t-1 do
for j:=t-1 downto i do
if a[j+1]<a[j] then begin
c:=a[j];
a[j]:=a[j+1];
a[j+1]:=c;    end; 
  
  writeln(f2,t,')',im[1]+'.'+fm+' ' ,s);
  
    end;  end;
  close(f1);
  close(f2)
end.

[Niro]

Код отформатируйте - используя тег [code] - решетка, и проставьте отступы.
Помогающим будет легче понять, что вы написали

[Aleksandr H.]

с записями знаком?

uses crt;
type FIO = record
     surname,name:string;
     bal:byte;
     end;
var a:array[1..100] of FIO;
    rec:FIO;
    N:byte;
    f1,f2:text;
    line:string;
    p:integer;
    i,j:byte;
begin
  assign(f1,'input.txt');reset(f1);
  assign(f2,'output.txt');rewrite(f2);
  n:=0;
  while not(eof(f1)) do
   begin
     inc(n);
     readln(f1,line);
     p:=pos(' ',line);
     a[n].surname := copy(line,1,p-1);
     delete(line,1,p);
     p:=pos(' ',line);
     a[n].name:=copy(line,1,p-1);
     delete(line,1,p);
     val(copy(line,1,length(line)),a[n].bal,p);
     if a[n].bal < 80 then dec(n);
   end;
   for i:=1 to n do
    for j:=1 to n do
     if a[i].bal>a[j].bal then
        begin
          rec:=a[j];
          a[j]:=a[i];
          a[i]:=rec;
        end;
   for i:=1 to n do
       writeln(f2,a[i].surname,' ',a[i].name,a[i].bal:10);
  close(f1);close(f2);
end.

[Вася195]

вот так мы не пишем

type FIO = record

var a:array[1..100] of FIO;
rec:FIO;

a[n].surname := copy(line,1,p-1);

a[n].name:=copy(line,1,p-1);

if a[n].bal < 80 then dec(n);

if a[i].bal>a[j].bal then

writeln(f2,a[i].surname,' ',a[i].name,a[i].bal:10);

[Вася195]

посмотрите на мою программу, там необходимо добавить чтобы по убыванию сортировал

[Aleksandr H.]

Сообщение от Вася195

посмотрите на мою программу, там необходимо добавить чтобы по убыванию сортировал

если так, то там необходимо и имена и фамилии в отдельных массивах хранить. Сортировку вынести после считывания и менять значения местами в 3 массивах.

[Вася195]

можете написать программу тогда

[Aleksandr H.]

Сообщение от Вася195

можете написать программу тогда

могу, это не сложно

[Serge_Bliznykov]

Aleksandr H., отлично! и за код в картинке - тоже!

Вот только зачем такая избыточность в циклах сортировки?
ведь вместо

for i:=1 to N do 
  for j:=1 to N do

вполне достаточно:

for i:=1 to N-1 do 
  for j:=i+1 to N do