Подмножества

[Ilai]

Добрый день!
Подскажите пожалуйста, набрал программу для определения является ли массив A подмножеством массива B.

program Project1;
 
var a, b: array of byte;
    z: real;
    j, i, n, m: byte;
    Result: boolean;
begin
     Writeln('Введите элементы массива A');
     n:=0;
     SetLength(a, n+1);
      while not eoln do
       begin
       Read(a[n]);
       inc(n);
       setlength(a,n+1);
      end;
 
      begin
     Writeln('Введите элементы массива B');
     m:=0;
     SetLength(b, m+1);
     while not eoln do 
       begin
       Read(b[m]);
       inc(m);
       setlength(b,m+1);
      end;
      end;
 
   for i:=0 to n-1 do begin
    Result:=false;
     for j:=0 to m-1 do begin
         if a[i]=b[j] then begin
           Result:=true; break; end;
     end;
    if Result=false then break;
    end;
 if Result=true then
 Writeln('Массив А входит в B')
 else
 writeln('Массив А не входит в B');
 read(z);
end.

Программа доходит до строки выделенной красным цветом и перескакивает на строку, выделенную зеленым. Как быть? Где я допустил ошибку?

[Stilet]

Замени while на repeat.
Или по другому разбирай введенную строку используя функции копирования-удаления.

[Ilai]

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

Замени while на repeat.

Неа, не получается. Теперь после ввода последовательности программа просто вылетает

[Stilet]

Ну не знаю...

      repeat
       Read(a[n]);
       inc(n);
       setlength(a,n+1);
      until eoln;

И все работает на ура. Массив вводится через пробел, а по нажатию энтера начинает работать цикл, который получает элементы массива. Специально проверил на твоем же коде.

[Ilai]

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

Ну не знаю...

      repeat
       Read(a[n]);
       inc(n);
       setlength(a,n+1);
      until eoln;

И все работает на ура. Массив вводится через пробел, а по нажатию энтера начинает работать цикл, который получает элементы массива. Специально проверил на твоем же коде.

Всё, нашёл где я не так писал. Большое спасибо за помощь!!