Написать программы по массивам и строкам [Паскаль]

[АлинКО]

1)Задана матрица P(8, 8). Найти в каждой строке наибольший элемент и поменять его местами с элементами главной диагонали. Диапазон [0; 40].

2)Найти самое длинное симметричное слово заданного предложения. (Например, ‘ABBA’)..


Народ помогите пожалуйста.!! через 2 дня зачет. а я дуб дубом(((

[Serge_Bliznykov]

по 2-й задаче смотрите сюда - http://www.programmersforum.ru/showthread.php?t=127499

там решения нет (по крайней мере в данный момент),
но есть указание к решению...

[Mad_Cat]

1)

const n=8;
var p:array[1..n,1..n] of integer;
i,j,k,t:integer;
begin
for i:=1 to n do begin
k:=1;
for j:=1 to n do begin
p[i,j]:=random(41);
if p[i,j]>p[i,k] then k:=j;
write(p[i,j]:4);
end;
if i<>k then begin
  t:=p[i,i];
  p[i,i]:=p[i,k];
  p[i,k]:=t;
end;
writeln;
end;
writeln('***************************');
for i:=1 to n do begin
for j:=1 to n do
write(p[i,j]:4);
writeln;
end;
readln;
end.

2)

var s:string;
s1,buf:string;
function IS_P(st:string):boolean;
var i:integer;
 n:integer;
begin
is_p:=false;
n:=length(st);
for i:=1 to n div 2 do
if st[i]<>st[n-i+1] then exit;
is_p:=true;
end;
begin
readln(s);
s:=s+' ';
buf:='';
while pos(' ',s)<>0 do
begin
s1:=copy(s,1,pos(' ',s)-1);
if is_p(s1) and (length(s1)>length(buf)) then buf:=s1;
delete(s,1,pos(' ',s));
end;
writeln(buf);
readln;
end.

[АлинКО]

спасибо большое. почемуто вторая прога не запускается(((

if p[i,j]>p[i,k] then k:=j;
write(p[i,j]:4);
не могли бы вы пояснить что делает вот эта строка в первой задаче?