Привет помогите советом по Pascaleеееее

Привет помогите советом по Pascaleеееее
дело в том что нужно поменять строки макс и мин числа , я числа нашел , менять строки местами я думал создавая доп одномерный массив и просветить туда одну из строк допустим минимального числа . А НА МЕСТО МИНИМАЛЬНОГО вписать максимальною строку , а потом с другого одномерного массива где я сохранил мин строку , вписать на место максимально , самое интересное то что пару рас она выполнялась, а потом перестала . Собеседник прислал вам файлы. СПАСИБО ..и еще вопрос , слышал что первые ОС apple , били написаны на паскале , могло ли такое быть,,,,спасибо.

pas файл http://yadi.sk/d/v3m-xhGGAsC4k

меняются строки , на место где мин число должна стать строка с макс числом а на место макс мин строка

PROGRAM abs;
uses crt;
var
buf:array [1..4] of integer;
mas: array [1..4,1..4] of integer;
i,j,f,max,min,ind1,ind3:integer;
begin
for i:=1 to 4 do
for j:=1 to 4 do
begin
write(i,'.',j,': ') ;
readln(mas[i,j]);
end;
writeln('/////////////');

min:=mas[1,1];
max:=mas[1,1];

for i:=1 to 4 do
for j:=1 to 4 do
begin

if maxMAS[I,J] then begin ind3:=i; min:=mas[i,j]; end;

end;

for i:=1 to 4 do begin
for j:=1 to 4 do
begin
write(mas[i,j]:3);
end;
writeln;
end;
begin
writeln(max,' max');
writeln(ind1,': строка максимального ');
writeln(min,' MIN');
writeln(ind3,': строка мінімального');
end;

///////////////////////////////////////////////////// замена строк
for j:=1 to 4 do begin
buf[j]:=mas[ind1,j];
end;

for j:=1 to 4 do begin
mas[ind1,j]:=mas[ind3,j];
end;
for j:=1 to 4 do begin
mas[ind1,j]:=buf[j]; end;

//////////////////////////////////////////////////////////

for i:=1 to 4 do begin
for j:=1 to 4 do
begin
write(mas[i,j]:3);
end;
writeln;
end;
readln;
end.

  • 1. Код на pastebin.com, а то
    if maxMAS[I,J] then begin ind3:=i; min:=mas[i,j]; end;
    явно не из рабочей программы, а скачивать целый файл часто неудобно.
    2. Условие надо приводить полностью. "Строка" и "строка таблицы" - разные вещи.
    3. Проблему описывать конкретно! Не "потом перестала", а "после ввода чисел 1, 2, 3 стала выводить 14238, 235234, 4324 вместо 3, 2, 1" или как-то так.
    4. Неправда, первые версии макоси писались на ассемблере.