Проверьте правильность пожалуйста

[Анжелика]

Извините, но я целый день сегодня делаю программы вот ещё задача, опять ошибка где-то....
Найти разности наибольшего и наименьшего элемента вкаждом столбце матрицы и записать их в дополнительную строку

Program zad43;
uses crt;
const n=3; m=4;
type t=array[1..n+1,1..m] of integer;
var a:t; i,raz,max,j,min:integer;
begin
clrscr;
randomize;
writeln('ishodnay matrica');
writeln;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100)-50;
write(a[i,j]:5);
end;
writeln;
end;
for j:=1 to m do
begin
min:=1000;
max:=-1000;
for i:=1 to n do
begin
if a[i,j]<min then begin
min:=a[i,j];
end
else
if a[i,j]>max then begin
max:=a[i,j];
raz:=max-min;
end;
end;
a[n+1,j]:=raz;
end;
begin
for i:=1 to n+1 do
for j:=1 to m do
write(a[i,j]:5);
writeln;
end;
readln;
end.

[Анжелика]

Кто чем может...проверьте
Дана квадратная матрица Найти сумму элементов строки в которой расположен элемент с наименьшим значением.

Program zad44;
uses crt;
const n=4;
type t=array[1..n+1,1..n] of integer;
var a:t; i,sum,p,j,min:integer;
b:array[1..n] of integer;
begin
clrscr;
randomize;
writeln('ishodnay matrica');
writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100)-50;
write(a[i,j]:5);
end;
writeln;
end;
min:=a[1,1];
p:=1;
sum:=0;
for i:=1 to n do
begin
if a[i,j]<min then begin
min:=a[i,j];
p:=i;
end;
writeln('min= ',min,' nomer stroki= ',p);
end;
for j:=1 to n do
begin
sum:=sum+a[p,j];
write(sum);
end;
readln;
end.

[Sazary]

Про разность наибольшего и наименьшего:

Program zad43;
uses crt;
const n=3; m=4;
type t=array[1..n+1,1..m] of integer;
var a:t; i,raz,max,j,min:integer;
begin
clrscr;
randomize;
writeln('ishodnay matrica');
writeln;
for i:=1 to n do
  begin
  for j:=1 to m do
      begin
      a[i,j]:=random(100)-50;
      write(a[i,j]:5);
      end;
  writeln;
  end;
  {---------}
for j:=1 to m do
    begin
    min:=1000;
    max:=-1000;
    for i:=1 to n do
        begin
        if a[i,j]<min then
          begin
          min:=a[i,j];
          end;
        if a[i,j]>max then
           begin
           max:=a[i,j];
           end;
        end;
    raz:=max-min;
    a[n+1,j]:=raz;
    end;
 {------}
 writeln('-------------');
for i:=1 to n+1 do
 begin
 for j:=1 to m do
  write(a[i,j]:5);
 writeln;
 end;
readln;
end.

Анжелика И, пожалуйста, заключайте код в тег CODE
Трудно читать, когда все в один ряд.

[Sazary]

Про сумму элементов строки, в которой расположен элемент с наименьшим значением.

Program zad44;
uses crt;
const n=4;
type t=array[1..n+1,1..n] of integer;
var a:t; i,sum,p,j,min:integer;

begin
clrscr;
randomize;
writeln('ishodnay matrica');
writeln;
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        a[i,j]:=random(100)-50;
        write(a[i,j]:5);
        end;
    writeln;
    end;
writeln('-----------');
{--------}

min:=a[1,1];
p:=1;
sum:=0;
for i:=1 to n do
  for j:=1 to n do
    begin
    if a[i,j]<min then
       begin
       min:=a[i,j];
       p:=i;
       end;
    end;
writeln('min= ',min,' nomer stroki= ',p);
for j:=1 to n do
  sum:=sum+a[p,j];
writeln('Sum= ',sum);
readln;
end.

[Анжелика]

Что бы я без вас делала, наверное я так никогда до конца не пойму.

[Sazary]

Анжелика Больше практикуйтесь, тогда обязательно поймете )

[Анжелика]

Сообщение от Sazary

Анжелика Больше практикуйтесь, тогда обязательно поймете )

ОООООооо да, я в школе вообще не изучала, в институте больше всех баллов имею.... Вот дома всегда решаю, а ошибки глупые и найти не могу))))), а там всегда правильно...странно.

[Sazary]

Просто нужно тщательно просмотреть код. Это поможет избавиться, по крайней мере, от синтаксических ошибок (намекаю на begin'ы в ваших листингах ).
Когда компилятор еще сообщает об ошибках, их найти относительно не сложно.
Сложнее, когда программа компилируется, и баги проявляются уже во время работы.

ps Сорри за оффтоп