напишите текст программы (любой язык программирования) для решения следующей задачи на ПЭВМ:

Вот решение на c++, это репозиторий GitHub. github.com/IBunDem/help-for-mail.ru-ask/blob/master/C%2B%2B/ex4.cpp

переделай эту программу под свою задачу, не получится - пиши
program pr5;
uses crt;
type student = record
fam: string[20];
imja: string[10];
vozr: integer;
pol: string [1];
adres:string[20];
oc:integer ;
end;
var
a: array[1..255] of student ;
i,j,n:integer ;
fp:file of student ;
w,c:student;
begin
clrscr;
assign (fp,'C:\student.dat');
rewrite(fp) ;
write('Введите число студентов : '); readln(n);
writeln('Введите данные о каждом: ');
writeln;
for i := 1 to n do
begin
write('Фамилия ',i,'-ого студента: ');
readln(w.fam);
write('Имя ',i,'-ого студента: ');
readln(w.imja);
write('Возраст: ',i,'-ого студента: ');
readln(w.vozr);
write('Пол: ',i,'-ого студента: ');
readln(w.pol);
write('Адрес: ',i,'-ого студента: ');
readln(w.adres);
write('Оценка : ',i,'-ого студента: ');
readln(w.oc);
write(fp,w);
end ;
close(fp) ;
reset(fp); n:=0;
while not eof(fp) do begin inc(n); //чтение файла
read(fp,w); a[n]:=w; // в массив А
end; //
close(fp) ;
writeln(' ----------------------------------');
writeln(' № fam imja vozr pol oc');
writeln(' -----------------------------------');
for I:=1 to n do
with a[i] do //печать массива А
writeln(i:2,fam:10,imja:7,vozr:7,pol:2,oc:3);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].vozr<a[j].vozr then
begin c:=a[i];a[i]:=a[j]; a[j]:=c ;
end;
writeln(' сортированный массив ');
writeln(' ----------------------------------');
writeln(' № fam imja vozr pol oc');
writeln(' -----------------------------------');
for i:=1 to n do
with a[i] do
writeln(i:2,fam:10,imja:7,vozr:7,pol:2,oc:3);
writeln(' -----------------------------');
writeln('конец задачи ');
end.

Не вздумай платить «cublen» - это бывший профайл мошенника Зотикова, который тебе ответил: -РЕШАЕТ НЕВЕРНО ВСЕМ, будет у тебя деньги выпрашивать за решения– кидает тут всех тупо на бабки! Сидит на даче безработный старпёр беззубый импотент С НЕМЫТЫМИ САЛЬНЫМИ ВОЛОСАМИ и кидает студентов!!! Моего друга обул на 320 руб–денег не вернул!!! У этого мошенника Зотикова–cublen - есть еще страницы -ИХ УЖЕ ЗАКРЫЛИ ЗА МОШЕННИЧ-ВО-он с трёх страниц кидает одновременно!!! Имя сменил только.