[lmikle]

Потому что cena тоже должна быть членом записи.

Код:

Program one;
 
{APPTYPE CONSOLE}
 
uses
SysUtils;
 
type 
  computer=record
    proc,ozy,pzy,vich:string[15];
    cena : integer;
  end;

var 
  a:array[1..20] of computer;
  n,i:integer;

begin
  write('kol-vo computerov: ');readln(n);
  for i:=1 to n do
    with a[i] do
    begin
      write ('proc: ');
      readln(proc);
      write ('ozy: ');
      readln(ozy);
      write ('pzy: ');
      readln(pzy);
      write ('vinch: ');
      readln(vinch);
      write ('cena(ozy,pzy,proc,vinch): ');
      readln(cena);
    end;

  for i:=1 to n do
  begin
    with a[i] do
      if cena<6000 then
        writeln(proc,' ',ozy,' ',pzy,' ',vinch,' ');
  end;

  readln;
end.

ЗЫ. И еще руки оторвать за такое форматирование кода.