Массивы, Сравнение одномерных массивов Опции

[hellspawn]

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

uses wincrt;
const n=200;
      m=5;
type TMas1=array [1..m] of char;
     TMas2=array [1..n] of char;
var y: TMas1;
    x: TMas2;
    i, j, k: byte;
    s: integer;
    f: boolean;
begin
clrscr;

for i:=1 to n do
 begin
 x[i]:=chr(40+random(161));
 end;
for j:=1 to m do
 begin
 y[j]:=chr(40+random(161));
 end;

k:=0;
f:=false;
i:=0;
while (f=false) or (i<=(n-4)) do
 begin
   j:=1;
   inc(i);
   if x[i]=y[j] then
     begin
     f:=true;
     k:=i;
     end
   else f:=false;
 end;

s:=0;
if f=true then
     begin
     for i:=k to k+4 do
       begin
       if x[i]=y[j] then
         begin
         s:=s+1;
         inc(j);
         end
       end;
     end;


if s=m then
 begin
 for i:=k-4 to k do
   begin
   x[i]:=' ';
   end;
 end;

for i:=1 to n do
 begin
 write(x[i]:2);
 end;
writeln;

for j:=1 to m do
  begin
  write(y[j]:2);
  end;
writeln;


end.

Сообщение отредактировано: hellspawn - 16.12.2008 0:00