Выделить из строки подстроки, не содержащих знаков: больше, меньше, равно. Каждая выделенная подстрока должна быть выведена с новой строки.

Uses Crt ; 
{Описание переменных} 
Var
Stroka : String ; {Строка символов }
i : integer; {Номер символа строки.}
{Начало программы}
Begin 
{Очистка экрана}
ClrScr;
{Вывод служебной информации}
Writeln('Домашняя работа 3');
Writeln('Фёдоров Иван');
Writeln('Группа С-11');
Writeln('Вариант 19');
Writeln('Выделить из строки подстроки, не содержащих знаков: больше, меньше, равно. Каждая выделенная подстрока должна быть выведена с новой строки.');
Writeln('Длина строки не более 40 символов');
Writeln ('Признак окончания ввода – Enter(“пустая строка”');
Repeat
         Writeln('ishodnaya stroka');
          Readln (Stroka);
          I:=1;
          While I<=Length(Stroka) do
                If ( Stroka[i] in ['<','>','='] ) then
                begin
                    delete(Stroka,I,1);
                    end
               Else 
                     I:= I+1;
           Writeln('preobrazovannaya stroka');
           Writeln(Stroka);
Until Stroka='';
End.

Uses Crt ; 
{Описание переменных}
const zn=['>','<','='];
Var
Stroka,s: String ; {Строка символов }
i,j : integer; {Номер символа строки.}
{Начало программы}
Begin 
{Очистка экрана}
ClrScr;
{Вывод служебной информации}
Writeln('Домашняя работа 3');
Writeln('Фёдоров Иван');
Writeln('Группа С-11');
Writeln('Вариант 19');
Writeln('Выделить из строки подстроки, не содержащих знаков: больше, меньше, равно.');
writeln('Каждая выделенная подстрока должна быть выведена с новой строки.');
Writeln('Длина строки не более 40 символов');
Writeln ('Признак окончания ввода - Enter("пустая строка"');
Repeat
Writeln('Исходная строка:');
Readln (Stroka);
until length(Stroka)<=40;
I:=1;
While I<=Length(Stroka) do{пока не конец строки}
If not (Stroka[i] in zn) then{если не знак}
  begin
   s:='';{начнем составлять подстроку}
   j:=i;{начнем с этого символа}
   while (not(Stroka[j] in zn))and(j<=length(Stroka)) do{пока не знаки и не конец строки}
    begin
     s:=s+Stroka[j];{составляем подстроку}
     j:=j+1;{идем вперед}
    end;
   writeln(s);{попался знак или конец строки, выводим что получилось}
   i:=i+length(s);{перепрыгиваем через подстроку}
  end
else i:=i+1;{иначе пропускаем}
readln
End.

uses crt;
var a:array[1..100] of integer;
    n,i,j,k:integer;
begin
clrscr;
randomize;
write('n=');readln(n);
writeln('Ishodnyj massiv:');
for i:=1 to n do
 begin
  a[i]:=random(10);
  write(a[i],' ');
 end;
writeln;
i:=1;
while i<=n do//пока не конец массива
 begin
  j:=i+1;//смотрим числа впереди
  while j<=n do
   begin
    if a[j]=a[i] then//если одинаковое
     begin
      for k:=j to n-1 do//к этому элементу
      a[k]:=a[k+1];//сдвигаем конец массива на 1 позицию
      n:=n-1;//уменьшаем размер массива
      end
     else j:=j+1;//если не одинаковый, пропускаем
   end;
  i:=i+1;//смотрим следующий
 end;
writeln('Massiv bez povtorenij:');
for i:=1 to n do
write(a[i],' ');
readln
end.