программа паскаль. нужна до субботы.

[Snake95]

Средний уровень
Вычислить среднее квадратичное значение для каждой из N последовательностей вещественных чисел (с переменным числом членов), размещенной в текстовом файле INPUT32.TXT.
Формат файла
1я строка - N
2я строка - число членов последовательности; набор чисел первой последовательности, через пробел
...
N+1я строка - число членов последовательности; набор чисел последовательности N, через пробел
Я написал программу, но не уверен что она верна. Если есть ошибки напишите в исправленном виде.

Program texts33;*
Var k: text;
m, n, i, j, x, z:integer;
begin
// инициализация //
Assign(k, 'Z:\input31.txt');
Reset (k);
// считываем из файла N, M //
Read (k,n);
Read (k,m);
// поиск среднего квадратического //
For i:=1 to n do
begin
z:=0;
For j:=1 to m do
Begin
Read (k, x);
z:=z+x*x;
end;
Writeln (sqrt(z/m), 'среднее квадратичное строки', i);
end;
close (k);
end.

[Vanta11a]

ЭТО вообще компилировалось? На ошибки, выдаваемые компилятором, смотрели?
Да?
Точно-точно?
А как тогда знак "*" в первой строке остался?

Итак. Следи за руками, алгоритм:
1) Считать число строк (последовательностей), через readln (потому что всего 1 число будет), пусть в переменную N
2) Для i = 1 до N выполняй:
2.1) Считать через read() первое число - M
2.2) Для j = 1 до M выполняй:
2.2.1) Если j <> M то читаешь число через read, суммируешь
2.2.2) Если j = M то читаешь число через readln, суммируешь
2.3) Делишь полученную сумму на M, выводишь значение
3) Конец

[Snake95]

Сколько стоит реализация алгоритма?

[Vanta11a]

Не больше ста рублей стоит, но такие вопросы лучше задавать в личку.