Задачи на паскале

[MedvedevaDY]

Помогите пожалуйста!
1. Сформируйте случайным образом строку из 30 больших букв латинского алфавита и удалите повторяютщиеся символы, заменив их нулями. Выведите на экран сформированный массив и массив после обработки.
2. Сформируйте случайным образом 6×6 матрицу А, содержащую [3..12]- случайные числа. Упорядочить номера строк матрицы по убыванию сумм элементов строк. Вывести на экран исходную матрицу и матрицу после упорядочения строк.
3. Сформируйте случайным образом строку, содержащую [3..8]- случайное число слов "сено", потом слово "иголка", потом снова [3..8] - случайные число слов "сено". С помощью стандартной функции поиска подстроки найти позицию вхождения в сформированный строку подстроки "иголка".

[Plague]

Ответ к 1й задаче:

RECEWJXWVZEJGLKNMKXQDNUVBTUMXW
REC0WJX0VZ00GLKNM00QD0U0BT0000

[Mad_Cat]

1

var
  s,buf:string;
  i:byte;
begin
  randomize;
  buf:='';s:='';
  For i:=1 to 30 do
    s:=s+chr(Random(26)+65);
  writeln(s);
  for i := 1 to 30  do
    if pos(s[i],buf)=0 then buf:=buf+s[i]
    else buf:=buf+'0';
  writeln(buf);
  readln;
end.

3

var
  s:string;
  i:byte;
  n:byte;
begin
  randomize;
  s:='';
  n:=random(6)+3;
  for i := 1 to n  do
  s:=s+'CEHO';
  s:=s+'uroJIKa';
   n:=random(6)+3;
  for i := 1 to n  do
  s:=s+'CEHO';
  writeln(s);
  writeln(pos('uroJIKa',s));
  readln;
end.

[newerow1989]

2:

var i,j,min,max:integer;
    a:array[1..6,1..6] of integer;
    s:array[1..6] of integer;
begin
   Randomize;
   For i:=1 to 6 do
   begin
      s[i]:=0;
      Write('#',i,':  ');
      For j:=1 to 6 do
      begin
         a[i,j]:=3+Random(10);
         Write(a[i,j]:2,'  ');
         s[i]:=s[i]+a[i,j];
      end;
      Writeln('  s = ',s[i]);
      If i=1 then
      begin
         min:=s[i];
         max:=s[i];
      end else
      begin
         If min>s[i] then
            min:=s[i];
         If max<s[i] then
            max:=s[i];
      end;
   end;
   Writeln;
   For i:=max downto min do
      For j:=1 to 6 do
         If i=s[j] then
            Writeln('#',j);
   Readln;
end.