нужна помощь

[n1ce > Kuzia]

v zadache nuzno ze naiti glavnii element i pomeniat6 ego mestamo daze esli ono budet chetnim

[maladoy]

задание 2 .. но только для нечетных n
program MATRIX;
uses CRT;
var
n,i,j:integer;
imax,jmax:integer;
max1:real;
max: array[1..2] real;
S:ARRAY [1..1000,1..1000] OF REAL;
begin
CLRSCR;
writeln ('vvedite n');
readln(n);
max1:=0;
for I := 1 to N do
FOR J :=1 TO N DO
WRITELN('S[',j,j,']=');
READLN(S[i,j]);
for i := 1 to n do
if s[i,i]>max1 then
begin
max:=s[i,i];
imax:=i;
jmax:=i;
end;
n:=n+1;
for i := 1 to n do
begin
n:=n-1;
if s[i,n]> max1 then
begin
max:=s[i,j];
imax:=i;
jmax:=n;
end;
end;
max[1]:=max1;
i:=trunc(n/2)+1;
max[2]:= s[i,i];
s[imax,jmax]:=max[2];
s[i,i]:= max[1];
for i:=1 to n do
for j:= 1 to n do
writeln('matrix:')
WRITELN('s[',i,j,']=',s[i,j]);
readln;
end.

[maladoy]

а у второй задачи реально условие не понял

[n1ce > Kuzia]

ai bi hotel u tia sprosit6 na schet zadachi s symvolami mozesh6 poaisnit6 tam ze
massiv ot [1..1000] string a pishet oshibku i ai hotel bi uznat6 chto ona voobshe shitaet moz eshe raz ee proverit6

[maladoy]

Сообщение от n1ce > Kuzia

ai bi hotel u tia sprosit6 na schet zadachi s symvolami mozesh6 poaisnit6 tam ze
massiv ot [1..1000] string a pishet oshibku i ai hotel bi uznat6 chto ona voobshe shitaet moz eshe raz ee proverit6

вроде поправил глянь

[maladoy]

пишу в блокноте отладить негде

[n1ce > Kuzia]

vseravno oshibku daet
nemnogo neponiatno chto vicheliaet

[n1ce > Kuzia]

mozet tam nado ne string a char

[n1ce > Kuzia]

a v etoi zadache eshe nado cherez TEKST sdelat6

[maladoy]

Сообщение от n1ce > Kuzia

mozet tam nado ne string a char

попробуй!!!!!!