Срочно, помогите, хотябы пару пунктов, желательно все (!

type Oras=(Chisinau, Orhei, Balti, Tigina, Tiraspol); Zi=(L, Ma, Mi, J, V, S, D); Consum=array [Oras, Zi] of real; var C: Consum; r: Oras; z: Zi; i,k: integer; sum,min_r,max_r,min_z,max_z: real; n_max_r,n_min_r,n_max_z,n_min_z: integer; begin r: =Chisinau; randomize; for i: =1 to 5 do begin z: =L; for k: =1 to 7 do begin c[r,z]: =random*100; z: =succ (z); end; r: =succ (r); end; r: =Chisinau; for i: =1 to 5 do begin z: =L; case ord (r) of 0: writeln ('Chisinau'); 1: writeln ('Orhei'); 2: writeln ('Balti'); 3: writeln ('Tigina'); 4: writeln ('Tiraspol'); end; for k: =1 to 7 do begin write (c[r,z]: 6:2); z: =succ (z); end; r: =succ (r); writeln; end; writeln ('Vsego za nedelu'); r: =Chisinau; min_r: =99999; max_r: =0; n_min_r: =-1; n_max_r: =-1; for i: =1 to 5 do begin z: =L; case ord (r) of 0: write ('Chisinau sum='); 1: write ('Orhei sum='); 2: write ('Balti sum='); 3: write ('Tigina sum='); 4: write ('Tiraspol sum='); end; sum: =0; for k: =1 to 7 do begin sum: =sum+c[r,z]; z: =succ (z); end; if sum>max_r then begin max_r: =sum; n_max_r: =ord (r); end; if sum