Двумерные массивы (Pascal)

[Дима82]

Помогите уж...

[Карась]

Учись нормально писать код. Он должен быть максимально понятным и читабельным. Содержать коментарии и иметь блочную структуру.

Var Mass : Array [1..5, 1..5] of Integer;
    x, y, MaxStr : Integer;

Begin

//Заполнение массива.
For x := 1 To 5 Do
  Begin
    For y := 1 To 5 Do
      Begin
        Mass[x,y] := Random(10);
        Write(Mass[x,y], ' ');
      End;
    Writeln;
  End;

//Запросим номер строки и найдём максимальный элемент.
Readln(x);
MaxStr := Mass[x,1];
For y := 2 To 5 Do If Mass[x,y] > MaxStr Then MaxStr := Mass[x,y];

//Выведем результат.
Writeln(MaxStr);
Readln;
End.

адд: только по какойто причине я искал максимальный элемент.... Ну да ладно. Алгоритм ясен.