Исправление ошибки 215 в коде

[Stefansson]

вот собственно код.

program p20_2;
uses crt;
var
  x: array[1..5, 1..9] of integer;
  y: array[1..17, 1..8] of integer;
  c: array[1..17, 1..9] of integer;
  i, j, s, sum1, sum2: integer;

function SumE1(i1, j1: integer): integer;
var i, j, sum: integer;
begin
  sum := 0;
  if i1 = 5 then
    for i := 1 to i1 do
      for j := 1 to j1 do
        if x[i, j] < 1 then
          sum := sum + x[i, j]
        else
          for i := 1 to i1 do
            for j := 1 to j1 do
              if y[i, j] < 1 then
                sum := sum + y[i, j];
  SumE1 := sum;
end;

procedure tr(s1, s2: integer; var s: integer);
begin
  if s1 > s2 then
    for i := 1 to 9 do
    begin
      for j := 1 to 5 do
      begin
        c[i, j] := x[j, i];
        write(c[i, j], ' ');
      end;
      writeln;
    end
  else
    for i := 1 to 8 do
    begin
      for j := 1 to 17 do
      begin
        c[i, j] := y[i, j];
        write(c[i, j], ' ');
      end;
      writeln;
    end;
end;

begin
  clrscr;
  randomize;
  for i := 1 to 5 do
  begin
    for j := 1 to 9 do
    begin
      x[i, j] := random(19) - 1;
      write(x[i, j], ' ');
    end;
    writeln;
  end;
  sum1 := SumE1(i, j);
  for i := 1 to 17 do
  begin
    for j := 1 to 8 do
    begin
      y[i, j] := random(21) - 10;
      write(y[i, j], ' ');
    end;
    writeln;
  end;
  sum2 := SumE1(i, j);
  tr(sum1, sum2, s);
  readln;
end.

Мой паскаль не капризный и вроде бы шалить не должен.
а выдает ошибку. может и правда что то не усмотрел?


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

1) грубейшая ошибка - после выполнения цикла FOR значение переменной может быть произвольным,
а Вы используете i и j для передачи в качестве параметров... Зачем?!

2) что собственно должна делать программа?

3) Вы вызываете функцию SumE1 до того, как заполнили массив Y - а ведь в функции SumE1, если какой-нибудь элемент массива X меньше 1, к сумме прибавляется сумма отрицаетельных элементов массива Y (причём все они прибавляются столько раз, сколько в массиве X будет элементов меньше единицы.) Это так и задумано?

И ГЛАВНОЕ, В чём ошибка? Запускал под TurboPascal несколько раз - всё работает...

[Pein95]

что он делает), что он должен делать задания напишыте...какая ошибка мы тут не телепаты...

[Stefansson]

вот задание.
Для матриц Х(5, 9) и У(17, 8) найти sum1 и sum2 соответственно – суммы элементов, не превышающих 1. Поиск сумм оформить в виде процедуры-функции. Если sum1 > sum2, то с помощью процедуры транспонировать матрицу Х, иначе – матрицу У.

на другом паскале запустилось. но какой то бредовый набор цифр выдал...)