Напишите паскаль задачку

var i,n:integer;
a: array [1..100] of integer;
begin
Write('N = ');
Readln(n);
for i:=1 to n do
begin
write(i,'-й элемент массива = ');
readln(a[i]);
if a[i] > 10 then a[i]:=100;
end;
for i:=1 to n do write (a[i]:5);
end.

var
a:array[1..5]of integer;
i,n:integer;

begin
for i:=1 to N do
begin
a[i]:=random(21); write(a[i]:4)
end;
writeln;
for i:=1 to n do begin
if a[i]>10 then a[i]:=100; write(a[i]:4)
end;
end.

1 9 4 11 3 4 16 6 9 2 2 15 13 4 19 17 10 12 4 2
1 9 4 100 3 4 100 6 9 2 2 100 100 4 100 100 10 100 4 2
---
11 14 8 2 11 12 6 17 18 11 9 12 4 4 20 17 10 15 8 14
100 100 8 2 100 100 6 100 100 100 9 100 4 4 100 100 10 100 8 100
---
13 9 11 1 15 1 2 13 7 19 9 13 10 6 3 3 9 11 3 3
100 9 100 1 100 1 2 100 7 100 9 100 10 6 3 3 9 100 3 3
---
15 19 12 7 14 15 10 12 20 14 5 7 7 6 19 17 9 9 5 18
100 100 100 7 100 100 10 100 100 100 5 7 7 6 100 100 9 9 5 100
---
17 12 19 10 19 2 7 4 9 8 10 11 1 8 1 7 5 5 13 15
100 100 100 10 100 2 7 4 9 8 10 100 1 8 1 7 5 5 100 100
---
12 9 13 4 16 3 15 7 15 2 15 20 9 9 7 10 2 2 18 18
100 9 100 4 100 3 100 7 100 2 100 100 9 9 7 10 2 2 100 100
---
6 6 1 1 3 10 14 14 14 9 1 4 14 11 20 18 9 16 13 20
6 6 1 1 3 10 100 100 100 9 1 4 100 100 100 100 9 100 100 100
---
2 18 17 7 6 3 18 2 15 4 16 8 4 2 12 18 5 6 17 13
2 100 100 7 6 3 100 2 100 4 100 8 4 2 100 100 5 6 100 100
---
1 8 7 17 2 19 12 11 16 16 15 17 3 4 13 13 3 6 7 20
1 8 7 100 2 100 100 100 100 100 100 100 3 4 100 100 3 6 7 100
---
4 16 1 12 15 19 9 19 16 4 8 20 5 8 12 9 10 9 5 4
4 100 1 100 100 100 9 100 100 4 8 100 5 8 100 9 10 9 5 4
---
7 18 19 7 5 17 11 14 1 7 12 1 20 19 13 7 16 20 17 4
7 100 100 7 5 100 100 100 1 7 100 1 100 100 100 7 100 100 100 4
---
10 11 11 8 16 11 15 11 12 2 16 9 20 17 17 8 13 5 15 20
10 100 100 8 100 100 100 100 100 2 100 9 100 100 100 8 100 5 100 100
---
13 17 11 17 3 9 5 8 2 4 9 16 5 2 1 2 20 5 1 8
100 100 100 100 3 9 5 8 2 4 9 100 5 2 1 2 100 5 1 8
---
18 9 13 1 12 11 17 5 1 9 17 7 7 1 18 16 15 18 13 2
100 9 100 1 100 100 100 5 1 9 100 7 7 1 100 100 100 100 100 2
---
7 20 9 6 20 3 1 14 6 17 10 4 16 15 16 9 20 15 10 12
7 100 9 6 100 3 1 100 6 100 10 4 100 100 100 9 100 100 10 100
---
15 1 5 13 2 12 14 5 8 10 16 13 13 19 3 12 17 4 2 1
100 1 5 100 2 100 100 5 8 10 100 100 100 100 3 100 100 4 2 1
---
11 8 19 5 4 16 14 8 17 19 7 10 14 10 19 4 2 9 12 4
100 8 100 5 4 100 100 8 100 100 7 10 100 10 100 4 2 9 100 4
---
8 9 2 6 2 6 20 11 7 15 8 6 20 8 15 9 16 9 10 18
8 9 2 6 2 6 100 100 7 100 8 6 100 8 100 9 100 9 10 100
---
9 7 7 15 7 6 4 10 5 16 3 15 12 3 4 6 3 6 18 7
9 7 7 100 7 6 4 10 5 100 3 100 100 3 4 6 3 6 100 7
---
19 13 11 10 6 17 12 9 6 5 4 11 8 2 10 7 8 4 4 6
100 100 100 10 6 100 100 9 6 5 4 100 8 2 10 7 8 4 4 6
---
13 15 17 14 11 19 17 4 17 18 1 20 9 18 8 1 5 20 20 19
100 100 100 100 100 100 100 4 100 100 1 100 9 100 8 1 5 100 100 100
---
16 5 3 2 16 18 9 10 13 6 3 17 14 20 15 4 10 11 13 4
100 5 3 2 100 100 9 10 100 6 3 100 100 100 100 4 10 100 100 4
---