Не работает программа . Pascal

Не работает программа . Pascal

  • Неправда, работает. Проверил. Другое дело, что она ничего не делает, но ты же сам поставил halt посреди программы ;)
  • а эта у меня работает, но не до конца, пришли постановку
    Program a12;
    uses CRT;
    const n=3;
    l=5;
    var
    S :array [1..n,1..l] of integer;
    i,j,max,jmax,imax,imas,jmas:integer;
    begin
    randomize;
    for i:=1 to n do begin
    for j:=1 to l do
    begin
    //writeln ('s(i,j)=');
    //readln(s[i,j]);
    s[i,j]:=random(51) - 10;
    write(s [ i, j ]:5);
    end;
    writeln end;
    max:=s[1,1];
    for i:=1 to n do
    for j:=1 to l do
    if s[i,j]> max then begin
    max:=s[i,j];
    imax:=i;
    jmax:=j;
    //halt
    end;
    writeln( s[imax,jmax]);
    s[imax,jmax]:= s[imax,jmax] - 10 ;
    writeln( s[imax,jmax]);
    for i:=n downto 1 do
    for j:=j downto 1 do
    if max=s[i,j] then
    begin
    imas:= i;
    jmas:= j;
    halt
    end;
    s[imas,jmas]:= s[imas,jmas] + 5;
    for i:= 1 to n do
    for j:= 1 to l do
    writeln (s[n,l]);
    end.