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

[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;
begin
clrscr;
randomize;
for k:=1 to 10 do
begin
i:=1;
j:=1;
while i<=10 and j<=L[k] do {‘Сдесь ошибку выдает Error 50: Do expected’}
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(l);
Writeln(A);
End.