program test17;
type elev=record
                nume,prenume,clasa:string[20];
                punctaj:integer;
                end;
var e:array[1..100] of elev;
    x:string;
    i,n:integer;
    f:text;
    aux:elev;
    ok:boolean;
begin
assign (f,'proba.txt');
reset(f);
n:=0;
while not eof(f) do
      begin
      readln(f,x);
      n:=n+1;
      e[n].nume:=copy(x,1,pos(' ',x)-1);
      delete(x,1,pos(' ',x));
      e[n].prenume:=copy(x,1,pos(' ',x)-1);
      delete(x,1,pos(' ',x));
      e[n].clasa:=copy(x,1,pos(' ',x)-1);
      delete(x,1,pos(' ',x));
      val(x,e[n].punctaj,i);
      end;
repeat
ok:=true;
for i:=1 to n-1 do
    if e[i].punctaj<e[i+1].punctaj then
       begin
       aux:=e[i];
       e[i]:=e[i+1];
       e[i+1]:=aux;
       ok:=false;
       end;
until ok;
for i:=1 to n do
    with e[i] do
         begin
         writeln(nume,' ',prenume,' ',clasa,' ',punctaj);
         end;
writeln('clasa cu punctaj maxim este ',e[1].clasa);
readln;
close(f);
end.
<!-- www.000webhost.com Analytics Code -->
<script type="text/javascript" src="http://stats.hosting24.com/count.php"></script>
<noscript><a href="http://www.hosting24.com/"><img src="http://stats.hosting24.com/count.php" alt="web hosting" /></a></noscript>
<!-- End Of Analytics Code -->