Цикл и самый теплый день

uses crt;
var
a:array[1..30]of real;
i,dmin,dmax:integer;
min,max:real;
begin clrscr;
writeln('vvodim temperaturu');
for i:=1 to 30 do
 begin
  write('den ',i,' ->');
  read(a[i]);
 end;
max:=a[1];
min:=a[1];
for i:=1 to 30 do
 begin
  if a[i]>0 then
   begin
    if a[i]>max then
     begin
      max:=a[i];
      dmax:=i;
     end;
    if a[i]<min then
     begin
      min:=a[i];
      dmin:=i;
     end
   end;
 end;
writeln('max. temperatura=', max:2:2,' v ', dmax,' den');
writeln('min temperatura=',min:2:2,' v ',dmin,' den');
readkey;
end.

uses crt;
var q,max,min,t,s:integer;
begin
clrscr;
write('Vvedite temperaturu=');
readln(max);
s:=max;
min:=max;
for q:=2 to 30 do
 begin
  write('Vvedite temperaturu=');
  readln(t);
  if (t>max) then max:=t else
  if (t<max) then min:=t;
 end;
if (s=max) then writeln('Maksimalynoe chislo=',max,' pod nomerom ',1)else
writeln('Maksimalynoe chislo=',max,' pod nomerom ',q);
if (s=min) then writeln('Minimalynoe chislo=',min,' pod nomerom ',1)else
writeln('Minimalynoe chislo=',min,' pod nomerom ',q);
readkey
end.

 uses crt;
  var max, min, i, k, m, a: integer;
   begin
  min:=9999;
  max:=-9999;
  for i:=1 to 30 do
  begin readln (a);
 begin if  (a<min)and (a>=0) then begin min:=a; m:=i; end;
 if (a>max) and (a>=0) then begin max:=a; k:=i; end;
 end;    end;
  writeln (max);
  writeln (k);
  writeln (min);
  writeln (m);
   end.