одномерные массивы(Pascal)

[Ekaterina92439]

В символьном массиве задано название журнала или газеты.В числовом-их цены за год(цена на подписку).Вывести на экран информацию о тех изданиях у которых цены меньше 1000 рублей.Расположить в таблицу
___________________________________
| N |Название|Цена в год|Цена в месяц|
|----------------------------------------

[Serge_Bliznykov]

k:=0;
for i:=1 to N do
   if Cena(i)<1000 then begin
      inc(k);
      WriteLn('| ',k:2,' | ',Nazvanie[i]:25,' | ',Сena[i]:5,' | ',Сena[i]/12:0:2,' | ',);
   end;

[Ekaterina92439]

Program jkk;
Var A:array[1..10] of string[14];
    B:array[1..10] of real;
    k,i,n:byte;
Begin
    write('Введите n: ');readln(n);
    For i:=1 to 10 do
    Begin
      writeln('Информация о ',i,' журнале или газете');
      write('Название: ');readln(A[i]);
      write('Цена на подписку на год: ');readln(B[i]);
    End;
    writeln('| N | ','  Название   | ',' Цена в год  ','| Цена в месяц |');
    k:=0;
for i:=1 to 10 do
   if B[i]<1000 then begin
      WriteLn('| ',k:2,' | ',A[i]:25,' | ',B[i]:5,' | ',B[i]/12:0:2,' | ');
   readln;end;
End.

можете исправить ошибки?
).Вывести на экран информацию о тех изданиях у которых цены меньше 1000 рублей (никак не выводит)

[Mad_Cat]

Program jkk;
Var A:array[1..10] of string[14];
    B:array[1..10] of real;
    k,i,n:byte;
Begin
k:=0;
    write('Введите n: ');readln(n);
    For i:=1 to n do
    Begin
      writeln('Информация о ',i,' журнале или газете');
      write('Название: ');readln(A[i]);
      write('Цена на подписку на год: ');readln(B[i]);
    End;
    writeln('| N | ','  Название   | ',' Цена в год  ','| Цена в месяц |');
    k:=0;
for i:=1 to n do
   if B[i]<1000 then begin inc(k);
      WriteLn('| ',k:2,' | ',A[i]:25,' | ',B[i]:5:2,' | ',B[i]/12:0:2,' | ');
   end;  readln;
End.

[Ekaterina92439]

не,не правильно)не выводит на экран информацию о тех изданиях у которых цены меньше 1000 рублей

[Mad_Cat]

у меня почему то все выводит)

[Ekaterina92439]

Да всё сейчас норм)осталось в порядок привести задачу)

[Serge_Bliznykov]

маленькая поправочка:

...
for i:=1 to n do
   if B[i]<1000 then begin inc(k);
...