Помогите пожалуйста решить 5 несложных задач (Pascal ABC)

[leshaaaa]

program 4;
uses crt;
var a:array[1..1000,1..1000] of integer;
i,j,n:integer;
begin
writeln('введите N');
read(n);
randomize;
for i:=1 to n do for j:=1 to n do a[i,j]:=random(500);
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5);
writeln;
end;
writeln;
for i:=1 to n do
begin
for j:=n downto 1 do
write(a[j,i]:5);
writeln;
end;
end.

[Сэлти]

плиииз....
помогите срочно решить задачи на Pascal ABC....
1.определить длинну первого (последнего) слова.
2.проверить, есть ли в тексте заданный символ.
3.подсчитать количество заданных символов.
4.определить номера позиций заданного символа.
5.подсчитать количество строчных(прописных) букв.
6.вывести символы текста в обратном порядке.
7.подсчитать количество слов.
8.определить,похоже ли данное слово на адрес электронной почты.
9.определить,является ли данное слово палиндромом (перевёртышем).
10.определить,в каком из слов больше заданных слов.
11.удалить в тексте заданные символы.
12 получить из слова S слово Z удалением заданного количества букв.
13.удалить в тексте заданные слова.
14.заменить первый пробел заданным словом.
15.заменить все пробеы заданными символами.
16.заменить заданную букву в слове многоточием.
17.определить,сколько раз заданная буква встречается в данном слове.
18.кодировать слово, поставив в соответствие букв её номер в алфавите.
19.расшифровать слово,поставив соответствующей цифре букву.
20.кодировать текст,меняя местами соседние символы.
21.кодировать слово, поставив в соответствие одним символам другие.
22.определить все слова.которые начинаются с заданной буквы.
23.определить все слова заканчивающиеся на "ая".
24.определить,сколько в тексте заданных слов, например "что".
25.заменить удвоенные буквы на одиночные,пробел-на знак подчёркивания, сочетания "**" на многоточие "...".
26.удалить текст после первой точки.
27.найти в тексте все анаграммы(слова,составленные из одних и тех же букв).
28.вывести повторяющиеся слова и их количество.
29.удалить повторяющиеся слова.
30.определить самое короткое и самое длинное слово.

[Mad_Cat]

Сэлти icq 723-321 стукай

[AlekseyK.]

Друзья помогите решить 3 не типичных задачи по АВС...1.Вывести на экран 16 прямоугольников разных цветов и по нажатию на них мышкой на экране рисуется круг соответствующего цвета(зелёный прямоуг-зелёный круг,красный красный и т.д)
2.Показать график изменения во времени величины тока в цепи содержащей активные(R),реактивные(L),и,возможн о емкостные(C) сопротивления,при её замыкании и рамзыкании(значение переменных вводятся)