ropr3tst.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

program pr3;
type date =record
     nume:string[50];
     media:real;
     end;
     elevi=array[1..100] of date;
var   n,i,op,j,k:integer;
      v:elevi;
      s:string[50];
      m,p,medie:real;
      aux:date;
      ok:boolean;
begin
n:=0;
repeat
writeln('0 stop');
writeln('1 adaugare');
writeln('2 eliminare');
writeln('optiunea');readln(op);
case op of 0:;
           1:begin
             write('numele');
             inc(n);
             readln(v[n].nume);
             write('media');
             readln(v[n].media);
             end;
           2 :begin
              write('numele ');
              read(s);
              for i:=1 to n do
                  if v[i].nume=s then begin
                                      dec(n);
                                      for j:=i to n do v[j]:=v[j+1];
                                      end;
              write('pozitie ');
              read(k);
              dec(n);
              for j:=k to n do v[j]:=v[j+1];
              end;
           end;
until op=0;
for i:= 1 to n do
with v[i] do writeln(nume:50,media:2:1);
for i:=1 to n do p:=p+v[i].media;
m:=p/n;
write('media este',m);
repeat
ok:=true;
for i:=1 to n do
if v[i].nume>v[i+1].nume then  begin
                   aux:=v[i];
                   v[i]:=v[i+1];
                   v[i+1]:=aux;
                   ok:=false;
                   end;
until ok=true;
for i:=1 to n do
with v[i] do writeln (nume:50,media:2:1);
repeat
ok:=true;
for i:=1 to n do
if v[i].media>v[i+1].media then  begin
                   aux:=v[i];
                   v[i]:=v[i+1];
                   v[i+1]:=aux;
                   ok:=false;
                   end;
until ok=true;
for i:=n downto 1 do with v[i] do writeln(nume:50,media:2:1);
write('medie data');readln(medie);
for i:=1 to n do if v[i].media>medie then with v[i] do writeln(nume:50,media:2:2);
end.