Паскаль (тип string и массивы)(help).

[4otenado]

В тексте удалить слова с нечётным количеством букв. Конец ввода F1. (на тип String).
program lab1;
var l,e,s:string;
k,i:integer;
begin
s:='sdl sdg ds;lkfgdslkjg sdfg dsfg dfjkgdsfhg sdkjg';
k:=0; e:='';l:='';
for i:=1 to length(s) do begin
if s[i]<>' ' then begin
inc(k); e:=e+s[i];
end
else
begin
if k mod 2=0 then l:=l+e+' ';
e:=''; k:=0;
end;
end;
writeln(s);writeln(l);
readln;
end.
помогите с концом ввода F1.

В матрице F(7x7) упорядочить элементы главной диагонали в порядке возрастания. Определить сумму элементов, лежащих под главной диагональю. (массивы). и вот ету помогите пож-та.

[CodeExpert]

4otenado, сделай
repeat
until переменная=код символа f1
p.s. да и со строкой я бы не так делал, просто проверяй строку и заноси в одну переменную начало, а в другую конец, и сверяй если четная длинна слова то функцией delete удаляй, и потом опять с этого места продолжай проверку... не знаю так было бы проще
P.p.s если хочешь помог бы с кодом если стукнишь в аську, а так просто ужинать уже пора )

[4otenado]

мб напишешь номер аськи?

[4otenado]

я так и не понял как сделать repeat until, помогите пожалуйста

[Deamonig]

во 2-м упорядоченно должно быть 7 6 5 4 3 2 1 или же наоборот ?

[Deamonig]

Вот 2-я задача, если упорядочивает неправильно, то поменяй знак то противоположный

program sss;
const n=7;
var
i,j,s,c:integer;
a:array[1..n,1..n] of integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
writeln('vedite A[',i,',',j,']');
readln(a[i,j]);
end;

for i:=1 to n-1 do
for j:=i+1 to n do
if a[i,i]>a[j,j] then
begin
c:=a[i,i];
a[i,i]:=a[j,j];
a[j,j]:=c;
end;

for i:=2 to n do
for j:=1 to i-1 do
s:=s+a[i,j];

writeln('symma =',s);
writeln(' ');
for i:=1 to n do
begin
writeln(' ');
for j:=1 to n do
write(a[i,j],' ');
end;

readln;
end.