Не совсем корректно работает программа

[alexchromets]

Программа берет элементы векторов с четными индексами и находит среди них минимальное число.(Посмотрите пожалуйста, что надо исправить в самой проге, чтобы она работала, как написано выше(язык Turbo Pascal))

program TP6;
Uses crt;
Type
Vect=array[1..50]of real;
Var A,B,C:Vect;
x,y,z:real;
i,n,m,k:byte;
Function Min (P:Vect;n1:byte):real;
var i:byte;Min1:real;
Begin
  Min1:=P[1];
  For i:=2 to n1 do
  if(i mod 2=0)and(P[i]<Min1) then Min1:=Min1+P[i];
  Min:=Min1;
end;
Begin
  ClrScr;
  Writeln ('Vvedite n');
  readln (n);
  writeln ('Vvedite m');
  readln (m);
  writeln ('Vvedite k');
  readln (k);
  ClrScr;
  For i:=1 to n do
  begin
    write('A[',i,']=');
    read(A[i]);
  end;
  ClrScr;
  For i:=1 to m do
  begin
    write ('B[',i,']=');
    read (B[i]);
  end;
  ClrScr;
  For i:=1 to k do
  begin
    write ('C[',i,']=');
    read(C[i]);
  end;
  ClrScr;
  writeln (' Laboratorna robota TP6');
  writeln (' Studenta grupy PIit-10-1');
  writeln (' Hromca Oleksia');
  writeln (' Vhidni dani:');
  writeln (' n=',n);
  writeln (' Vector A:');
  begin
    For i:=1 to n do
    write(' ',A[i]:-9:2);
    writeln
  end;
  writeln (' m=',m);
  writeln (' vector B:');
  begin
    For i:=1 to m do
    write (' ',B[i]:-9:2);
    Writeln
  end;
  writeln (' k=',k);
  writeln (' Vector C: ');
  begin
    For i:=1 to k do
    write (' ',C[i]:-9:2);
    writeln
  end;
  writeln (' rezultat:');
  x:=Min(A,n);
  y:=Min(B,m);
  z:=Min(C,k);
  writeln (' Naimenshe znachennia');
  writeln (' vectora A=',x:-9:2);
  writeln (' Naimenshe znachennia');
  writeln (' vectora B=',y:-9:2);
  writeln (' Naimenshe znachennia');
  writeln (' vectora C=',z:-9:2);
END.

From Stilet: Вот теперь он действительно оформлен норм. А если ты не будешь читать правила форума, так и в баньке недолго оказаться.

[dosha]

оформи код нормально

[alexchromets]

Сообщение от dosha

оформи код нормально

Код оформлен нормально. Когда сюда его вставляю, он ставится в один ряд, под линейку.