String. Опции

[Santrex]

Народ.Помогите прогрмисту 1 курса.Вот проги не получаються а сдать их надо уже через 2 дня.Помогите чем можете и чем скорей тем лучше.Заранее спасибо.
А вот и условие прог: :p2:
1)Задана строка символов.Напечать повторяющийся символ.

2)Задан текс.Выполнить Сортировку по алфавиту слов,имеющих четное количесто букв.

3)Задан текст.Удалить одинаковые слова.
:p2: В этих прогах нам запрещенно использовать Функции,Процедуры и Фаелы.
Я надеюсь вы сможете помочь мне написать хотяб пару прог.

Сообщение отредактировано: Santrex - 17.12.2004 20:25

[Santrex]

Это я делал раньше прогу на сортировку.
Раншь вроде сортировала.Но токо все слова, а не с четным колличесвтом букв.
Я потом пробывал переделать и запарол ее.Тперь она вроде не сортирует совсем.Посмотрите что там можно сделать.И можно ли переделать структуру

Program Zadanie2;
USES CRT;
VAR
   A   : ARRAY [1..10] OF string;
   B   : ARRAY [1..10] OF INTEGER;
   I,N,k,l : INTEGER;
   s : string;
BEGIN
   CLRSCR;
   WRITE ('N=');
   READLN (N);
   WRITELN ('Введите список слов после кадого Enter:');
   FOR I:=1 TO N DO
       READLN (A[I]);
   WRITELN;
   FOR I:=1 TO N DO
       B[I]:=LENGTH(A[I]);
   FOR I:=1 TO N DO
       WRITELN ('В слове',A[ I ],' -',B[ I ],'количесвто символов');
   k:=0;
   for i:=1 to n do begin
     k:=k+1;
   end;
   writeln;
   writeln;
   writeln ('ђҐ§г«мв в:');
   writeln ('Слова с четным koli4estvom bykv  = ',k);

   if k mod 2 <> 0 then
     while (l<=(n-1)) do begin
        for n:=1 to (n-1) do begin
           if (a[n] > a[n+1]) then begin
              s:=a[n];
              a[n]:=a[n+1];
              a[n+1]:=s
           end;
        end;
        writeln ('Отсортированный список:');

        for l:=1 to n do
           write (a[l],'   ');
        REPEAT UNTIL KEYPRESSED
     end;
END.