Проверка на ошибки, Сделать проверку на ошибки ввода длинны массива Опции

[Катя]

Помогите пожалуйста!!! Есть программа с модулем всё работает но нужно сделать проверку на ошибки ввода длинны массива! Помогите пожалуйста! Я чт-то пыталась сделать но не получилось! Помогите очень прошу!

uses Crt,ModuleX;
var
  a, b, c: arr;
  in_b,count,size_A, size_B: integer;
begin
repeat
inform;
vvod(size_A, size_B,count, a, b);
s4et(size_A, size_B, count,in_b, c,b,a);
vivod(count,c);
until ReadKey in ['Q','q'];
end.

UNIT ModuleX;

Interface

const
  n = 1000;
  k = 5; 
type
  arr = array[1 .. n] of integer;
Procedure Inform;
Procedure Vvod(var size_A,size_B,count:Integer; var a,b:arr);
Procedure s4et(size_A, size_B:Integer; var count, in_b:Integer; var c:arr; b,a:arr);
procedure vivod(var count:Integer; var c:arr);

Implementation
Uses CRT;
procedure Inform;
begin
ClrScr;
end;
procedure Oshibka;
var
ch:char;
begin
writeln('Oshibka vvoda!!!');
writeln('Povtorite vvod razmera massiva ot 0 do 32767');
ch:=readkey;
exit;
end;
procedure vvod;
var i:Integer;
ch:char;
begin
clrscr;
  write('size of A = ');
  readln(size_A);
  if size_a>32760 then Oshibka else
  write('size of B = ');
  readln(size_B);
  if size_b>32767 then Oshibka else
  writeln('elementi massiva A:');
  for i:=1  to size_A do
   begin
    a[i]:=random(k);
    Write(a[i],' ');
   end;
  writeln;
    writeln('elementi massiva B:');
   for i:=1  to size_B do
    begin
     b[i]:=random(k);
     Write(b[i],' ');
    end;
   writeln;
   count:=0;
end;

procedure s4et;
var i,j:Integer;
 begin
 for i := 1 to size_A do begin
    in_b := 0;
    for j := 1 to size_B do
      if b[j] = a[i] then inc(in_b);

    if in_b > 1 then
      inc(count); c[count] := a[i];
end;
end;
procedure vivod;
var i:Integer;
begin
if count=0 then writeln('Covnadenui net. Najmite [q] dlia vihoda')
  else
   begin
   writeln('Maccuv C=');
   for i:=1 to count do
   writeln(c[i]);
  end;
end;

end.

Сообщение отредактировано: volvo - 7.11.2006 22:13