ПОМОГИТЕ! СРОЧНО НУЖНО! PASCAl Введите с клавиатуры одномерный массив P (T),…

Uses crt; var p,r: array [1… 10000] of real; x,y,t,f,k: integer; sum,sr,ch,min: real; begin sum: =0; k: =0; f: =1; write ('T='); readln (t); for x: =1 to t do begin write ('p[',x,']: '); readln (p[x]); end; min: =p[1]; for x: =1 to t do if p[x]>0 then begin sum: =sum+p[x]; inc (k); end; for x: =1 to 9 do if p[x]ch then begin r[f]: =p[x]; inc (f); end; writeln; for y: =1 to f-1 do writeln ('r[',y,']: ',r[y]); readln; end.