Помогите решить задачки на Паскаль abс!

1)var a:array [1..10] of integer;

i,c:integer;

begin

randomize;

write('Массив: ');

for i:=1 to 10 do

begin

a[i]:=random(200);

write(a[i],' ');

if (a[i]gt;9) and (a[i]lt;100) then c:=c+1;

end;

writeln;

write('Количество двузначных частей: ',c);

end.

2)var a:array [1..10] of integer;

i,c,min:integer;

begin

randomize;

min:=200;

write('Массив: ');

for i:=1 to 10 do

begin

a[i]:=random(200);

write(a[i],' ');

if a[i]lt;= min then  

begin

min:=a[i];

c:=i;

end;

end;

writeln;

write('Номер заключительного минимального элемента: ',c);

end.

3)var a:array [1..10] of integer;

i,c,min:integer;

begin

randomize;

min:=200;

write('Массив: ');

for i:=1 to 10 do

begin

a[i]:=random(200);

write(a[i],' ');

if (a[i]mod 5=0) and (a[i]lt;min) then min:=a[i];

end;

writeln;

if minlt;200 then write('Малый элемент,кратный 5: ',min) else write('Нету такового элемента.');

end.