массивы.паскаль

[Лида200915]

Ребят, подскажите в чем ошибка в задаче. Третий час ломаем голову и не поймем в чем ошибаемся...задача такая:упорядочить строку с номером k в двумерном массиве a[i,j].

программа:

program massiv;
const n=5;
const m=5;
var a:array [1..n,1..m] of integer;
var i,j,k,f,max:integer;
begin
randomize;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random (100);
write (a[i,j]:3);
end;
writeln;
end;
writeln ('введите номер строки k');
readln (k);
max:=a[k,n];
for j:=1 to n-1 do begin
for j:=j+1 to n-1 do
if a[k,j]>max then begin
f:=a[k,j];
a[k,j]:=max;
max:=f;
end;
for i:= 1 to n do
begin
for j:=1 to m do
write (a[i,j]:3);
writeln (' ');
end;
end;
end.

Уточните, пожалуйста в какой строчке ошибка и какая...Заранее спасибо)

[Greblin]

Для начала ошибка в этих строках

for j:=1 to n-1 do begin
for j:=j+1 to n-1 do

Скорее всего перепутали i и j. В любом случае в цикле for вручную переменную-счётчик изменять нельзя

[kakawkin]

вот первые исправления. Приду с учёбы - доделаю:

program massiv;
const n=5;
var a,b:array [1..n,1..n] of integer;i,j,k,f,max:integer;
begin
 for i:=1 to n do 
  for j:=1 to n do 
   a[i,j]:=random (100);
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(a[i,j]:4);
   writeln(' ');
  end; 
 writeln;
 write ('введите номер строки: ');
 readln (k);
 writeln;
 max:=a[k,n];
 for j:=1 to n do
 if a[k,j] > max then begin
  f:=a[k,j];
  a[k,j]:=max;
  f:=max;
 end;
 for i:= 1 to n do
 begin
 for j:=1 to n do
 write (a[i,j]:4);
 writeln (' ');
 end;
end.

[Consol]

max:=a[k,n];
for j:=1 to n do
if a[k,j] > max then begin
f:=a[k,j];
a[k,j]:=max;
f:=max;
end;

какой то странный код
скорее всего должно быть так

program massiv;
const n=5;
const m=5;
var a:array [1..n,1..m] of integer;
var i,j,k,f,max:integer;
begin
randomize;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random (100);
write (a[i,j]:3);
end;
writeln;
end;
writeln ('введите номер строки k');
readln (k);
for j:=1 to n-1 do begin
for i:=j+1 to n do
if a[k,j]>a[k,i] then begin
f:=a[k,j];
a[k,j]:=a[k,i];
a[k,i]:=f;
end;
for i:= 1 to n do
begin
for j:=1 to m do
write (a[i,j]:3);
writeln (' ');
end;
end;
end.