[Guneska]

Сообщение от MarlboroRed

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  str, numbers, letters, res1,res2: string;
  len,i,j: integer;
begin

  numbers:='1234567890';
  letters:='qwertyuiopasdfghjklzxcvbnm';

  write('Vvedite stroku: ');
  readln(str);  // записываем исходную строку в переменную str
  len:=length(str);  //Записываем в переменную len длинну строки


  for i:=1 to len do   // Цикл от 1 до конца строки
    for j:=1 to 10 do  //Цил от 1 до 10 (количество цифр)

      { Если символ i строки str равен символу j строки numbers тогда записываем
      в res1 по принципу: старая информация в res1 + символ строки}
      if str[i]=numbers[j] then
        begin
          res1:=res1+str[i];
          break;  //Прерывание цикла
        end;

  for i:=1 to len do  // Цикл от 1 до конца строки
    for j:=1 to 26 do  // Цил от 1 до 26 (количество букв в алфавите)

    { Если символ i строки str равен символу j строки letters тогда записываем
      в res2 по принципу: старая информация в res2 + символ строки}
      if str[i]=letters[j] then
        begin
          res2:=res2+str[i];
          break; //Прерывание цикла
        end;

  writeln('Resultat: ', res1,res2);   //Выводим результат

  readln;

end.

Простите, а почему вы использовали "break"? Вы закомментировали это как прерывание цикла, но почему Вы его здесь использовали? Зачем?