найти ошибку

[SVing]

Вот код , не знаю где и какую функцию закрыть.Помогите исправить

program p4_4 ;
uses crt;
var
m: array [1..5,1..5] of integer;
x,y,max,min,maxp,minp :integer;

   begin
for y:=1 to 5 do
 for x:=1 to 5 do
  begin
  write('vvedite stroka-', y,' ctolbec -', x,' element massiva: ' );
  readln(m[x,y]);
  end;
begin

for y:=1 to 5 do
 for x:=1 to 5 do
  begin
   if x = 1 then
   begin
   max:=m[x,y];
   min:=m[x,y];
   end
   else
   begin

    if max < m[x,y] then
     begin
      max :=m[x,y];
      maxp:=x;
     end;

   if min > m[x,y] then
     begin
      min:= m[x,y];
      minp:=x;
     end

   end;
   m[maxp,y]:=min;
   m[minp,y]:=max;
  end;


end.

[Вадим Мошев]

Ну, общепринятые правила хорошего тона.
1. Пользоваться тэгом CODE, а не QUOTE.
2. Форматировать свой код (http://programmersforum.ru/showthread.php?t=182196)
3. Писать о том, ЧТО выдаёт вам компилятор, какую ошибку, что не получается.

По поводу п.2. Без форматирования вы даже сами не можете понять, в чём ошибка, хотя писали его ВЫ (если вы, конечно)...

[SVing]

если бы помогло ,я б не спросил ,а так не знаю , уже устал переьерать варианты

[BDA]

Uses CRT;
var
  m: array[1..5, 1..5] of integer;
  x, y, max, min, maxp, minp: integer;

begin
  for y := 1 to 5 do
    for x := 1 to 5 do
    begin
      write('vvedite stroka ', y, ' ctolbec ', x, ' element massiva: ');
      readln(m[x, y]);
    end;

  writeln('Source matrix');
  for y := 1 to 5 do
  begin
    for x := 1 to 5 do
      write(m[x, y]: 5);
    writeln;
  end;

  for y := 1 to 5 do
  begin
    max := m[1, y];
    min := m[1, y];
    maxp := 1;
    minp := 1;
    for x := 2 to 5 do
    begin

      if max < m[x, y] then
      begin
        max := m[x, y];
        maxp := x;
      end;

      if min > m[x, y] then
      begin
        min := m[x, y];
        minp := x;
      end

    end;
    m[maxp, y] := min;
    m[minp, y] := max;
  end;

  writeln('Changed matrix');
  for y := 1 to 5 do
  begin
    for x := 1 to 5 do
      write(m[x, y]: 5);
    writeln;
  end;

  readln;
end.

[SVing]

спасибо большое!!!!Очень признателен

[BDA]

Пожалуйста
В следующий раз пишите и условие задачи, а то пришлось чуток подумать, что делает программа.