народ... выручайте.... Pascal

Надо решить 9 задач... попросила подруга... но я уже лет 5 не программировал на нем, сейчас ничего не вспомню..

Выглядеть долно примерно так

Код (Text):

1. const n=3; m=4;
2. Var a:array[1..n,1..m]of real; i,j:integer; max:real;
3. BEGIN
4. for i:=1 to n do
5. for j:=1 to m do
6. read(a[i,j]);
7. max:=a[1,1];
8. for i:=1 to n do
9. for j:=1 to m do
10. if a[i,j] > max then max:=a[i,j];
11. writeln(‘max=’,max:1:1);
12. for i:=1 to n do
13. for j:=1 to m do
14. if a[i,j]=max then writeln(i,' ',j);
15. END.  

Заранее ОГРОМНОЕ спасибо!!!

PS сейчас надо эти задачи ))))

 

ну я серьезно ((((

 

В моем примере?