задачи по delphi 7

[Doublepsycho]

Доброго времени суток, уважаемые программисты.
Катастрофически не хватает времени, завтра зачет, прошу вашей помощи по решению нескольких задачи.
1. Напишите программу, сортирующую символы введенной с клавиатуры строки в порядке возрастания их номеров в ASCII-таблице.
2. В произвольной строке символов найти все повторяющиеся последовательности символов, содержащие более одного символа, вывести эти последовательности и их количество на экран. Программа должна предоставлять возможность выбора осуществления расчета с использованием либо функции, либо процедуры. В виде подпрограммы целесообразно оформить сравнение скопированного фрагмента строки определенной длины с остальными вариантами.
3. Так получилось, что вы работаете в отделе кадров фирмы программистом. Начальник поручил вам составить программу, которая позволяет ввести информацию о сотрудниках: фамилия, должность, возраст (лет), стаж работы в этой фирме (лет) и месячный оклад. Информация должна записываться в текстовый файл, причем так, чтобы каждый реквизит писался с новой строки (фамилия - в первой строке, должность - во второй и т.д.). Вот и сделайте такую программу. Создайте с ее помощью текстовый файл, в который введите информацию не менее чем о 10 сотрудниках.

Заранее спасибо, ребят.

[turok7770]

1 задача.

 var
    i,n,tmp,k:Integer;
    mas:array[1..200] of char;
    mas2:array[1..200] of Integer;

begin
  write('vvedite kollichestvo simvolov');
  Readln(n);

  for i:=1 to n do
    begin
      Readln(mas[i]);
    end;

  for i:=1 to n do
    begin
      mas2[i]:=ord(mas[i]);
    end;

  for i:=1 to n-1 do
   for k:=1 to n-i do
     begin
       if mas2[k]>mas2[k+1] then
        begin
          tmp:=mas2[k];
           mas2[k]:=mas2[k+1];
            mas2[k+1]:=tmp;
        end;
     end;

   for i:=1 to n do
     begin
       mas[i]:=Char(mas2[i]);
     end;

   for i:=1 to n do
     begin
       Writeln(mas[i]);
     end;
 Readln;
end.

Остальные за плату попробую сделать хотя такой же студент первокурсник, наверное как и ты

[Vanta11a]

Вы и правда верите, что тут добрые самаритяне, которые сделают всю Вашу работу (которую Вы даже не попытались сделать) за курс в течении нескольких часов и бесплатно?

В формате псевдокода:
1)

01 Считать символ, внести в массив
02 Отсортировать массив процедурой
03 Очистить экран, вывести отсортированный массив
04 goto 01

2)

Берем первый и второй символы строки, сравниваем с 3 и 4. Не совпали - с 4 и 5, и т.д. до совпадения обоих. 
Если совпали - сравниваем 1, 2, 3 и совпавшие символы +1
Совпали снова - берем 4 символ, опять сравниваем
Если совпадения нет - выводим кусок строки, вырезаем совпадения из строки, увеличиваем счетчик на 1.

3)

01 Открыть файл
02 Считать данные с экрана
03 Записать данные в файл
04 goto 02
...
0n Закрыть файл

[Doublepsycho]

Vanta11a, может, я и верю что здесь есть хоть несколько таких человек. Я знаю что если посидеть и разобраться в этих задачах, то вполне могу сделать их и сам, проблема в том, что естественно мне надо сделать не только эти 3 задачи, чем я сейчас и занимаюсь. Спасибо за подсказки.

[Doublepsycho]

и сколько может стоит решение этих трех задач ? в личку цены , если не сложно.

[Niro]

Могу решить 150 р на счет мобильного, за две последнии задачи
Личка у вас не работает, пишите e mail

[Doublepsycho]

doublepsycho@mail.ru . устраивает

[Xeonc]

если еще актуально, выполню за небольшое вознаграждение, обратитесь в icq