программа, по нахождению в матрице вектор строки макс длины.. Опции

[krasnblj]

PROGRAM NORM;
{Нахождение в матрице номера вектор-строки максимальной длины}


VAR
n,m,j,i,k: INTEGER;
A: ARRAY [1..100,1..100] OF REAL;
S,Q: REAL;
B:ARRAY [1..100] OF REAL;

 PROCEDURE VVOD;
 BEGIN
 WRITELN ('Программа нахождения в матрице номера вектор-строки максимальной длины');
 WRITELN ('Введите размеры матрицы');
 REPEAT
  WRITE ('Количество столбцов = ');
  READ (n);
  IF (n<1) OR (n>100) THEN
   WRITELN ('Неверное значение');
 UNTIL (n>=1) AND (n<=100);
 REPEAT
  WRITE ('Количество строк = ');
  READ (m);
  IF (m<1) OR (m>100) THEN
   WRITELN ('Неверное значение');
 UNTIL (m>=1) AND (m<=100);
 WRITELN ('Введите элементы матрицы');
 FOR j:=1 TO m DO
  BEGIN
   FOR i:=1 TO n DO
    BEGIN
     WRITE ('ВВЕДИТЕ a[j,i] = ');
     READ (a[j,i]);
    END;
  END;
 END;
 PROCEDURE RAS;
 begin  FOR j:=1 TO m DO
  BEGIN
   S:=0;
   FOR i:=1 TO n DO
    S:=S+a[j,i];
   IF j=1 THEN
    Q:=(sqr(S));
    K:=j;
   IF (sqr(S))>Q THEN
    Q:=(sqr(S));
    k:=j;
  END;
 WRITELN ('Строка =',k);
END;
 BEGIN
 WRITELN('нахождения в матрице номера вектор-строки максимальной длины');
 VVOD;
 RAS;
 WRITELN ('вектор-строка максимальной длины');
 WRITE (B[j]:5:2,',');
 READLN;
 END.

выдаёт ошибку в выделенном месте..
и вобще,привильно ли делаю?? программу

Добавлено через 1 мин.
ай,место не выделилось,но вот оно:

PROCEDURE RAS;
begin
FOR j:=1 TO m DO

Сообщение отредактировано: krasnblj - 23.11.2007 23:42