Решение задач.Паскаль

[mayoneznaya_feya]

Ребят, помогите пожалуйста решить задачи!! ну или хотя бы помогите понять что от меня требуется!!)
1.Дана матрица размером 5Х5 элементов, случайным образом заполненная. Сформировать одномерный массив В, где B(j) равно 0,если индекс максимального значения оказывается меньше чем у минимального значения в столбце. В противном случае B(j)-1.
2. Дана произвольная строка символов. Распечатать слова,в которых нет повторяющихся символов.

[Mad_Cat]

1)

for j:=1 to 5 do begin
i1:=1;i2:=1;b[j]:=0;
for i:=1 to 5 do begin
if a[i,j]>a[i1,j] then i1:=i;
if a[i,j]<a[i2,j] then i2:=i;
end;
if i1>i2 then b[j]:=1;
end;

2)

program st;
var
  s,s1: string;
  i,k,i1,i2: integer;
f:boolean;
begin
  cls;
  readln(s);
  s:=s+' ';
  repeat
    if pos('  ',s)>0 then
      delete(s,pos('  ',s),1);
  until pos('  ',s)=0;
  k:=0;
  for i:=1 to length(s) do
    if s[i]=' ' then
    begin
      s1:=copy(s,k+1,i-k-1);
      k:=i;
f:=true;
    for i1:=1 to length(s1)-1 do begin
       for i2:=i1+1 to length(s1) do
          if s1[i1]=s1[i2] then begin f:=false;break;end;
        if not f then break;
end;
   if f then writeln(s1);
    end;
end.

[mayoneznaya_feya]

а можешь мне пожалуйста вообще по-русски написать смысл что делает первая программа?))

[Mad_Cat]

что делает первая программа?

это не программа это ее кусок, а делает он вот что

формирует одномерный массив В, где B(j) равно 0,если индекс максимального значения оказывается меньше чем у минимального значения в столбце. В противном случае B(j)-1.

[mayoneznaya_feya]

я знаю что это часть программы))

вот именно с этой фразой у меня и были проблемы))) можно както по-другому изложить её смысл?

чем можно заменить операторы boolean и break ?
нам учитель их не давала

[Mad_Cat]

boolean - это тип данных, а не оператор!!!!
break - можно меткой - но это гемор ?

[mayoneznaya_feya]

жопское задание

как в 1 программе под Var указать B ?

я написала программу вот так. куда деть В не знаю
в integer он не прижился почему-то )

program 
pr1;

Var
 a:array[1..5,1..5] of integer;
 i,j,i1,i2 : integer;
Begin
For i:=1 to 3 do begin
For j:=1 to 5 do begin
a [i,j]:= random(0,1);
write(a[i,j],' '); end;
Writeln; end; 

for j:=1 to 5 do begin
for i:=1 to 5 do begin
i1:=1;
i2:=1;
B[j]:=0;
if a[i,j]>a[i1,j] then i1:=i;
if a[i,j]<a[i2,j] then i2:=i;
end;
if i1>i2 then B[j]:=1;
end;
writeln(B,' ');
end.