Помогите! Дайте образец решения следущих задач (Паскаль)

Тут только Массив 1) и 2)
var a:array[1..100] of integer;
i,x,min,max:integer;
begin
for i:=1 to 100 do
begin
a[i]:=random(101);
write(a[i],' ')
end;
writeln;
write('x=');
readln(x);
min:=100;
max:=0;
write('x in: ');
for i:=1 to 100 do
begin
if a[i] < min then min:=a[i];
if a[i] > max then max:=a[i];
if a[i]=x then write(i,' ')
end;
writeln;
writeln('min=',min,' max=',max);
end.

Решебник. ру
Надо учиться, а не валоёбить

program Markin2;

var
a: array[0..49] of integer;
x, y, min, max, stakan: integer;

begin
randomize;
for var i:= 0 to 49 do
a[i] := random(100);
writeln('Исходный массив: ', a);
// 1)
write('Число для поиска: ');
readln(x);
for var i:= 0 to 49 do
if a[i] = x then
writeln('Это число ', i+1, '-е в массиве');
// 2)
min := 100;
max := 0;
for var i:= 0 to 49 do begin
if a[i] < min then
min := a[i];
if a[i] > max then
max := a[i];
end;
writeln('Минимальное число в массиве: ', min);
writeln('Максимальное число в массиве: ', max);
// 3)
write('Сдвинуть откуда и куда (позиции через пробел): ');
read(x, y);
for var i:= x-1 to y-2 do begin
stakan := a[i];
a[i] := a[i+1];
a[i+1] := stakan;
end;
writeln('Массив после сдвига: ', a);
// 4)
for var i:= 0 to 24 do begin
stakan := a[i];
a[i] := a[49-i];
a[49-i] := stakan;
end;
writeln('Реверсивный массив: ', a);
end.

Var
x: Array [1..100] of Integer;
i,n,l: Integer;
BEGIN
Write('Введите кол-во элементов: ');
Readln(n);
Write('Введите число L: ');
Readln(l);
Writeln('Введите элементы: ');
For i:=1 to n do
Readln(x[i]);
Writeln('Исходный массив:');
For i:=1 to n do
Write(x[i],' ');
Writeln;
Writeln('Полученный:');
For i:=1 to n do
begin
If x[i]>l Then
x[i]:=100;
Write(x[i],' ');
end;
END.