Двумерный массив

[Svoloch]

Необходимо обработать несколько одномерных массивов объединенных в двумерный массив

Два массива размером 200 и 5 элементов, соответственно, заполните в случайном порядке символами, коды которых расположены в диапазоне от 40 до 200. Проверить входит ли меньший массив полностью в больший и, если это так, то в большем массиве все элементы, принадлежащие меньшему массиву, заменить на символы "пробел". Выполните сортировку полученных массивов. Для контроля результата сделайте распечатку массивов, в том числе исходного.

С одномерными массивами все в порядке, я заполнил их,распечатал, рассортировал.см.ниже

var
a:array[1..200] of char;
b:array[1..5] of char;
i,n,j,k:integer;
t:char;
begin
randomize;
writeln('исходный массив а');
for i:=1 to 200 do
begin
n:=random(161)+40;
a[i]:=chr(n);
write(a[i],' ');
end;
writeln('исходный массив b');
for i:=1 to 5 do
begin
n:=random(161)+40;
b[i]:=chr(n);
write(b[i],' ');
end;
for i:=1 to 5 do
for j:=1 to 200 do
if b[i]=a[j] then
begin
inc(k);
break;
end;
writeln;
writeln('k=',k);
if k=5 then
for i:=1 to 200 do
for j:=1 to 5 do
if a[i]=b[j] then a[i]:=' ';
for i:=1 to 200 do
for j:=2 to 200 do
if a[j]<a[j-1] then
begin
t:=a[j];
a[j]:=a[j-1];
a[j-1]:=t;
end;
writeln('новый массив а');
for i:=1 to 200 do
write(a[i],' ');
for i:=1 to 5 do
for j:=2 to 5 do
if b[j]<b[j-1] then
begin
t:=b[j];
b[j]:=b[j-1];
b[j-1]:=t;
end;
writeln('новый массив b');
for i:=1 to 5 do
write (b[i],' ');
readln;
end.

А как с этой задачей сделать двумерный массив что то не разберусь. Но я так понял программа похожая должна быть и поменяться должно буквально несколько строк.Помогите пожалуйста сделать двумерный массив.

[kventin_zhuk]

Cначала описываете тип массив.

type
  mass = array[1..50] of char;

Потом объявляете массив типа, описанного выше:

a:array[1..50] of mass;

Ну и в коде программы, где были циклы под одномерный массив, добавляем внутри ещё один цикл.
Вот примерно так

begin
  randomize;
  writeln('исходный массив а');
  for i:=1 to 50 do
  begin
    
    for j := 1  to 50 do
    begin
      n:=random(161)+40;
      a[i][j]:=chr(n);
      write(a[i][j],' ');
    end;
  end;
  writeln('исходный массив b');
  for i:=1 to 5 do
  begin
    n:=random(161)+40;
    b[i]:=chr(n);
    write(b[i],' ');
  end;
for i := 1 to 5 do
  for j := 1 to 50 do
    for d := 1 to 50 do
      if b[i]=a[j][d] then
      begin
        inc(k);
        break;
      end;

[Svoloch]

а что такое

a:array[1..50] of mass

?
вроде у меня таких цифр нет. есть 200 и 5.
и еще двумерный массив вроде записывается так

var
a:array[1..N,1..M] of char

?

[kventin_zhuk]

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

а что такое

a:array[1..50] of mass

?
вроде у меня таких цифр нет. есть 200 и 5.
и еще двумерный массив вроде записывается так

var
a:array[1..N,1..M] of char

?

1. Я выше объявил тип mass, это массив из 50-ти символов. А дальше объявил массив типа mass(массив массивов).
2. Цифры 50 взял из головы, выберите их таким образом, чтобы у вас получился двухмерный массив 200 элементов (10 * 20 например)
3. Да, так тоже объявляются двухмерные массивы, но тогда , чтобы получить доступ к элементу массива нужно будет писать a[i, j]. В моём же случае нужно будет писать a[i][j].

[Svoloch]

Понятно. только теперь почему то когда ввожу счетчики

i,n,j,k:integer;
t:char;

Компилятор выдает ошибку, что вместо запятых надо "=" поставить. Почему так?

[kventin_zhuk]

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

Понятно. только теперь почему то когда ввожу счетчики

i,n,j,k:integer;
t:char;

Компилятор выдает ошибку, что вместо запятых надо "=" поставить. Почему так?

Не совсем понял, какие счётчики вы вводите?

[Stilet]

Почему так?

; где-то выше этих строк забыл поставить видимо.

[Svoloch]

";" стоит перед счетчиками везде

Не совсем понял, какие счётчики вы вводите?

Ну так после массивов счетчики мне надо ввести, как я вводил в примере в самом начале когда разбирался с одномерными массивами

Вообщем ввел как Вы сказали, кучу ошибок выдает.