3 задачки на Паскаль. Массив,строки. помогите решить до завтра!

[meds]

1.во введенной строке заменить все маленькие латинские буквы на большие.

2.дана последовательность их n символов. выяснить встречается ли в данной последовательности группа из трех стоящих рядом точек.

3. дан массив А состоящий из 20 целых чисел. отсортируйте первую половину масива по возратсанию, вторую по убыванию. введие контрольное число и определите его наличие в массиве А. в положительном случае выведите найденное число и его индекс наэкран.

помогите пожалуста решить!!! я буду очень благодарен! если нужно смогу перевести в течении 3х дней денюшку на Web Money или Яндекс деньги! только не больше 50р за задачу..(

[puporev]

Держи подарок.
Задача 1.

uses crt;
var s:string;
    i:integer;
begin
clrscr;
write('Vvedite stroku: ');readln(s);
writeln;
for i:=1 to length(s)do
s[i]:=UpCase(s[i]);//стандартная функция преобразования строчных латинских в прописные
writeln(s);
readln
end.

Задача 2.

uses crt;
var s:string;
    i:integer;
begin
clrscr;
write('Vvedite stroku: ');readln(s);
writeln;
for i:=1 to length(s)do
if pos('...',s)>0 then //если встречаются три точки подряд
   begin
    writeln('Yes!'); //то да
    break;
   end
else
   begin
    writeln('No!'); //если нет, то нет
    break;
   end;
readln
end.

Задача 3.

uses crt;
const n=20;
var a:array[1..20]of integer;
    i,j,k,x:integer;
begin
clrscr;
randomize;
write('Ishodnyj massiv:');
writeln;
for i:=1 to n do
   begin
     a[i]:=random(20);
     write(a[i],' ');
   end;
writeln;
writeln('Otsortirovannyj massiv:');
for i:=1 to (n div 2)-1 do //сортировка первой половины
for j:=1 to (n div 2)-1 do
if a[j]>a[j+1] then
   begin
     x:=a[j];
     a[j]:=a[j+1];
     a[j+1]:=x;
   end;
for i:=(n div 2)+1 to n-1 do //сортмровка второй половины
for j:=(n div 2)+1 to n-1 do
if a[j]<a[j+1] then
   begin
     x:=a[j];
     a[j]:=a[j+1];
     a[j+1]:=x;
   end;
for i:=1 to n do
write(a[i],' ');
writeln;
write('Vvedite kontrolnoe chislo!');
readln(k);
x:=0;
for i:=1 to n do //поиск контрольного числа
if a[i]=k then
    begin
     x:=x+1;
     writeln('k=',a[i],' Nomer=',i);
    end;
if x=0 then
writeln('Takogo chisla net!');
readln
end.

[meds]

ой спасибо большое!!!!!!!!!!