Помогите пожалуйсто, НАЙДИТЕ ОШИБКУ Опции

[Boom-Box]

Помогите пожалуйсто очень надо(завтро зачет)
program jjj;
var i,j,k,n,m: word;
A: array [1..n,1..m] of real;
L:array[1..m]of word;
begin
read(n,m) ;
for k:=1 to m do
begin
i:=1;
j:=1;
while i<=n and j<=L[k] do
begin
if A[k,i]<>0 then
begin
T[k,j]:=A[k,i];
j:=j+1;
i:=i+1;
end;
else
i:=i+1;
end;
end;
writeln(T);
Writeln(A);
End.

Сообщение отредактировано: Boom-Box - 1.06.2007 19:07

[Boom-Box]

Люди кто нибуть может помочь (сделать чтобы эта программы работала) Пожалуйсто
ЧТОБЫ ОНА НЕ ВЫВОДИЛА НУЛИ

program jjj;
uses crt;
const n=10;m=10;
var i,j,k: word;
A: array [1..n, 1..m] of word;
L:array[1..m]of word;
T: array [1..n, 1..m] of word;
begin
clrscr;
randomize;
for k:=1 to 10 do
begin
i:=1;
j:=1;
while (i<=10) and (j<=L[k]) do
begin
writeln(a[k,i]);
if A[k,i]<>0 then
begin
T[k,j]:=A[k,i];
j:=j+1;
i:=i+1;
end;

end;
end;
End.

[compiler]

Люди кто нибуть может помочь (сделать чтобы эта программы работала) Пожалуйсто
ЧТОБЫ ОНА НЕ ВЫВОДИЛА НУЛИ

работает и не выводит нули

program jjj;
uses crt;
const
	n=10;
	m=10;
var
	i,k: word;
	A: array [1..n, 1..m] of word;
	L:array[1..m]of word;
	T: array [1..n, 1..m] of word;
begin
	clrscr;
	randomize; //так массив случайных чисел ты не создашь , надо циклами...
	for i:=1 to n do
		for k:=1 to m do
			t[i,k]:=random(10);
	for i:=1 to n do
		for k:=1 to m do
			a[i,k]:=random(10);
	for i:=1 to n do
		l[i]:=random(10);

	i:=1;//инициалицируем ДО цикла
	for k:=1 to n do begin
		while  (i<=L[k]) do begin
			writeln(a[k,i]);
			(*if A[k,i]<>0 then begin*) //Ты уверен что тебя нужно это условие?
				T[k,i]:=A[k,i]; //зачем нам j ? 
				inc(i);
			(*end;*)
		end;
	end;
	readln;
	read;
End.

такая подходит?