ropr9tst.pas

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

program pr9;
type informatii=record
     nume:string[20];
     media:byte;
     bursa:longint;
     end;
var  n,i,op:integer;
     v:array [1..100] of informatii;
     s:string[30];
begin
n:=0;
repeat
writeln('o stop');
writeln('1 adaugare');
writeln('2 listarea');
writeln('3 cautare');
write('optiunea');readln(op);
case op of 0:;
           1:  begin
               write('nume');
               inc(n);
               readln(v[n].nume);
               write('media');
               readln(v[n].media);
               write('valoarea bursei');
               readln(v[n].bursa);
               end;
           2:  for i:=1 to n do
                             with v[i] do writeln(nume:10,media:2,bursa:10);
           3:  begin
               write('numele');readln(s);
               for i:=1 to n do
               if v[i].nume=s then with v[i] do writeln(nume:10,media:2,bursa:10);
               end;
          end;
until op=0;
end.