Паскаль. Задачи с массивами.

[1cheater1]

Я заочно учусь, не ругайте и не обзывайте меня сильно, лучше помогите. Во всех книгах, что я читал массивы практически не разбираются

1. Переписать положительные элементы массива x, до последнего вхождения максимального элемента, в массив y, упорядоченными по неубыванию и подсчитать их количество.

С этой у меня кое-что получилось... наверное. Вообщем там, где выделено красным почему-то присваиваются нули. Хотя наверно еще где-то ошибки есть. Помогите, пожалуйста.

const n=5; m=5;
var
   i,k,l:integer;
   max,u:real;
   x:array [1..n] of real;
   y:array [1..m] of real;
begin
   for i:=1 to n do read (x[i]);

   max:=x[1];
   for i:=1 to n do
    begin
    if max<=x[i] then
      begin
       max:=x[i];
       k:=i;
     end;
   end;

   l:=0;
   for i:=1 to k do
   begin
   if x[i]>0 then
     begin
      l:=l+1;
      x[i]:=y[l];
     end;
   end;

   for i:=1 to l do

   begin
   if y[i]>y[i+1] then
    begin
    u:=y[i];
    y[i]:=y[i+1];
    y[i]:=u;
    end;
    end;

   for i:=1 to l do
   writeln (y[i]:2:2);
end.

2. Дана квадратная матрица порядка n(n=5). Если все строки упорядочены по убыванию, то в элементы вектора x записать элементы строки, содержащей наименьшее количество отрицательных элементов, а иначе наибольшее количество нулевых элементов. Сделать с использованием процедур.

Тут вообще все плохо, то что я наделал попросту виснет

[Sazary]

Первая исправленная:

uses crt;
const n=5; m=5;
var
   i,k,l:integer;
   max,u:real;
   x:array [1..n] of real;
   y:array [1..m] of real;

begin
clrscr;
for i:=1 to n do read (x[i]);

max:=x[1];
k:=1;
for i:=1 to n do
 begin
 if max<=x[i] then
  begin
  max:=x[i];
  k:=i;
  end;
 end;

l:=0;
for i:=1 to k do
 begin
 if x[i]>0 then
  begin
  l:=l+1;
  y[l]:=x[i];
  end;
 end;

for i:=1 to l-1 do
 for k:=i to l do
  begin
   if y[i]>y[i+1] then
    begin
    u:=y[i];
    y[i]:=y[i+1];
    y[i]:=u;
    end;
  end;

for i:=1 to l do
 writeln (y[i]:5:2);
readln;
end.

Вторая, например, так:

uses crt;
const n=5;
type matrix = array[1..n,1..n] of integer;
vector = array[1..n] of integer;
var
M : matrix;
x : vector;
i,j : integer;
k,a,b : integer;

function poubyv(M : matrix) : boolean;
 var i,j : integer;
 begin
 for i:=1 to n do
  for j:=2 to n do
   if M[i,j]>M[i,j-1] then
    begin
    poubyv := false;
    exit;
    end;
 poubyv := true;
 end;

function kolotric(M : matrix; ni : integer) : integer;
 var j,k : integer;
 begin
 k := 0;
 for j:=1 to n do
  if M[ni,j]<0 then inc(k);
 kolotric := k;
 end;

function kolnuli(M : matrix; ni : integer) : integer;
 var j,k : integer;
 begin
 k := 0;
 for j:=1 to n do
  if M[ni,j]=0 then inc(k);
 kolnuli := k;
 end;

procedure zap(M : matrix; ni : integer; var V : vector);
 var j : integer;
 begin
 for j:=1 to n do
  V[j] := M[ni,j];
 end;



begin
clrscr;
for i:=1 to n do
 for j:=1 to n do
  begin
  write('M[',i,',',j,']= ');
  readln(M[i,j]);
  end;
writeln;

if poubyv(M) then
 begin
 k := 1;
 b := n;
 for i:=1 to n do
   begin
   a := kolotric(M,i);
   if a<b then
     begin
     b := a;
     k := i;
     end;
   end;
 zap(M,k,x);
 end
else
 begin
 k := 1;
 b := 0;
 for i:=1 to n do
  begin
  a := kolnuli(M,i);
  if a>b then
    begin
    b := a;
    k := i;
    end;
  end;
 zap(M,k,x);
 end;

for i:=1 to n do
 write(x[i]:4);

readln;
end.