ropr5tst.pas

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

program pr5;
type
functie=array[1..100] of
                    record
                    codd:1..100;
                    conversie:string[30];
                    end;
     date=record
     marca:longint;
     nume,prenume:string[20];
     cod:integer;
     sex:string[10];
     salariu:integer;
     end;
var n,i,p:integer;
    s:string;
    v:array[1..100] of date;
    w:array[1..5] of string[30];
begin
write('n=');readln(n);
for i:=1 to n do with v[i] do begin
                              write('marca ');readln(marca);
                              write('nume ');readln(nume);
                              write('prenume ');readln(prenume);
                              write('cod ');readln(cod);
                              write('sex ');readln(sex);
                              write('salariu ');readln(salariu);
                              end;
for i:=1 to n do begin
write('cod',v[i].cod,'w[',i,']:= ');
readln(w[i]);    end;

write('codul este');readln(p);
write('sexul e');readln(s);
for i:=1 to n do
if (v[i].cod=p) and (v[i].sex=s) then with v[i] do
writeln(marca:10,nume:10,prenume:13,w[cod]:13,sex:10,salariu:10);
end.