Переписать элементы первого массива, кратные пяти, в другой массив

uses crt;
type ar = array[1..100] of integer;
var
arr : ar;
i,n,min,imin : integer;
    procedure print(n:integer;arr : ar);
    var
    i:integer;
    begin
         for i:=1 to n do
         write(arr[i]:2);
    writeln;
    end;
begin
min:=99999;
    write('Enter the demensions of the array: ');
    readln(n);
    for i:=1 to n do
    arr[i]:= random(10)-5;
    writeln('The original array:');
    print(n,arr);
    
    for i:=1 to n do begin
        if(arr[i]>0) and (arr[i]<min) then begin
            imin:=i;
            min:=arr[i];
        end;
    end;
    
    write('imin= ',imin,'; min= ',min);
end.

uses crt;
var a:array [1..100] of integer;
b,c,i,n,max,min,maxi,mini:integer;
sum:real;
begin
write('Ââåäèòå ðàçìåðíîñòü ìàññèâà= ');
read(n);
writeln;
writeln('Èñõîäíûé ìàññèâ:');
for i:=1 to n do begin
a[i]:=random (20);
write(a[i]:3);
end;
 
for i:=1 to n do begin
    for c:=1 to 20 do begin
        sum:=sum+(a[i]*a[i]/i);
    end;
end;
writeln;
write('Sum= ',sum:4:2);
 
end.

uses crt;
var a:array [1..1000] of integer;
b,c,i,n,max,min,maxi,mini:integer;
begin
write('Ââåäèòå ðàçìåðíîñòü ìàññèâà= ');
read(n);
writeln;
writeln('Èñõîäíûé ìàññèâ:');
for i:=1 to n do begin
a[i]:=random (20);
write(a[i]:3);
end;
writeln;
max:=-9999;
for i:=1 to n do
    if(a[i]>max) then max:=a[i];
 
    for i:=1 to n do
    write(a[i]/max:5:2);
 
end.

uses crt;
var a:array [1..1000] of integer;
z:array[1..1000] of real;
b,c,i,n,max,min,maxi,mini:integer;
begin
write('Ââåäèòå ðàçìåðíîñòü ìàññèâà= ');
read(n);
writeln;
writeln('Èñõîäíûé ìàññèâ:');
for i:=1 to n do begin
a[i]:=random (20);
write(a[i]:3);
end;
    writeln;
for i:=1 to n do begin
    z[i]:=sqrt((a[i]*a[i]+1)/i);
    write(z[i]:8:2);
end;
end.