Массив и циклы

uses crt;
var
 r:array[1..100] of integer;
 i,s1,s2,n1,n2:integer;
begin
 clrscr;
 randomize;
 for i:=1 to 100 do
  r[i]:=random(500);
 s1:=0;
 s2:=0;
 for i:=1 to 100 do
  if r[i]>s1 then
   begin
    s1:=r[i];
    n1:=i;
   end;
 for i:=1 to 100 do
  if (r[i]>s2)and(i<>n1) then
   begin
    s2:=r[i];
    n2:=i;
   end;
 writeln('искомые элементы: ', s1, ' ', s2);
end.

var
i,a,p,f:integer;
begin
for i:=1000 to 9999 do
begin
a:=i;
p:=1;
repeat
p:=p*(a mod 10);
a:=a div 10;
until a=0;
p:=p*p;
if p=i then
begin
f:=1;
write(i,' ');
end;
end;
if f=0 then writeln('takogo chisla net');
readln;
end.

  var
   i,j,k,p:byte;
   s:real;
   flag:boolean;
   begin
   for i:=1 to 9 do
    for j:=0 to 9  do
     for k:=0 to 9   do
      for p:=0 to 9   do  begin
      s:=i*1000+j*100+k*10+p;
      if sqr(i)*sqr(j)*sqr(k)*sqr(p)=s then
                      begin flag:=true; break;    end else flag:=false;   end;
                       if flag=false then writeln('такого числа нет') else writeln('ТАкое число есть это: ', s:8:3);
       end.