В одномерном массиве вычислить максимальный элемент массива.

Program Ex_1;
Uses CRT;
Var 
     A:array[1..1000] of integer;
     max,N,K,i:integer;
BEGIN
ClrScr;
Write('K->');
ReadLn(K);
For i:=1 TO K DO
Begin
A[i]:=random(10)-3;
WriteLn('A[',i,']=',A[i]);
Read;
End;
ReadLn;
max:=A[1];
For i:=1 TO K DO;
If A[i]>max Then
If A[i]>0 Then
Begin
N:=i;
max:=A[i]
End;
WriteLn('max=',max);
Write('N=',N);
ReadLn;
End.

Program Ex_1;
Uses CRT;
Var
     A:array[1..1000] of integer;
     max,N,K,i,a1,b1,j,index:integer;
BEGIN
ClrScr;
Write('K->');
ReadLn(K);
For i:=1 TO K DO
Begin
A[i]:=random(10)-3;
WriteLn('A[',i,']=',A[i]);
Read;
End;
ReadLn;
max:=A[1];
For i:=1 TO K DO
begin
If A[i]>max Then max:=A[i];
If A[i]>0 Then N:=i;
End;
WriteLn('max=',max);
Write('N=',N);
ReadLn;
Writeln('Vvedite interval [a,b]');
Readln(a1,b1);
index:=1;
for i:=1 to k do
if (abs(A[i])>=a1)and(abs(A[i])<=b1) then begin
                                    for j:=i to k-1 do
                                    A[j]:=A[j+1];
                                    A[k-index+1]:=0;
                                    inc(index);
                                    dec(i);
                                          end;
for i:=1 to k do
WriteLn('A[',i,']=',A[i]);
Readln;
End.