Ошибка операнды имеют неприводимые типы паскаль

{1) Программа должна содержать меню и ввод-вывод в окна на экране.
Необходимо предусмотреть контроль ошибок пользователя при вводе данных.
При разработке программы применить технологию нисходящего проектирования.
Логически законченные фрагменты оформить в виде подпрограмм, все необходимые данные которым передаются через список параметров.
Использования глобальных переменных следует избегать.
2) Описать запись с именем PRICE, содержащую следующие поля:
• TOVAR — название товара;
• MAG — название магазина, в котором продается товар;
• STOIM — стоимость товара в руб.
3) Написать программу, выполняющую следующие действия:
• ввод с клавиатуры данных в массив SPISOK, состоящий из восьми элементов типа PRICE;
записи должны быть размещены в алфавитном порядке по названиям товаров;
• вывод на экран информации о товаре, название которого введено с клавиатуры;
• если таких товаров нет, выдать на дисплей соответствующее сообщение.}
program ekzamen;
 
uses
  crt;
 
const
  n = 2;
 
type
  Price = record
    tovar: string[20];
    mag: string[12];
    stoim: string[10];
  end;
 
var
  f: file of Price;
  w: price;
  spisok: array [1..n] of Price;
  t: Price;
  i, j, k: integer;
  nfile: string;
 
procedure sozd;{*******создание********}
begin
  clrscr;
  writeln('СОЗДАНИЕ МАССИВА  ЗАПИСЕЙ ТОВАРОВ');
  writeln('******************************');
  for i := 1 to n do   
  begin
    writeln('Ввести ', i, ' - ю запись');
    with spisok[i] do 
    begin
      write('Введите название Товара:  ');
      readln(tovar);
      write('Введите название магазина, в котором продается товар:  ');
      readln(mag);
      write('Стоимость товара в тенге:  ');
      readln(stoim);
    end;
  end;
  writeln('Ввод данных закончен');
         // *****сортировка по алфавиту***********
  for i := 1 to N - 1 do
    for j := i + 1 to n do
      if spisok[i].tovar > spisok[j].tovar then begin
        w := spisok[i]; spisok[i] := spisok[j]; spisok[j] := w;
      end;
  readln;
end;
 
procedure prosm;// *****просмотр записей***********
begin
  clrscr;
  writeln('ЧТЕНИЕ  МАССИВА  ЗАПИСЕЙ');
  writeln('**************************');
  writeln;
  writeln('<br>');
  writeln('  N   Товар       Магазин    Стоимость');
  writeln('<br>');
  for i := 1 to N do
    with spisok[i] do 
    begin
      writeln(i:3, tovar:15, mag:10, stoim:13);
    end;
  writeln('<br>');
  writeln('Конец просмотра');
  readln;
end;
 
procedure zapis;//*****Запись в файл'***********
begin
  clrscr;
  writeln('ЗАПИСЬ МАССИВА В ФАЙЛ');
  writeln('**********************');
  writeln;
  write(' ввести имя файла (например spisok.dat): ');
  readln( nfile);
  assign(f, nfile);
  rewrite(f);
  clrscr;
  writeln('ЗАПИСЬ МАССИВА В ФАЙЛ');
  writeln('**********************');
  writeln;
  for i := 1 to N do
    write(f, spisok[i]);
  writeln(' Запись в файл закончена');
  close(f);
  writeln('Содержимое файла');
  writeln('*****************');
  writeln('<br>');
  writeln('  N   Товар       Магазин    Стоимость');
  writeln('<br>');
  reset(f);
  i := 0;
  while not eof(f) do 
  begin
    read(f, w);
    inc(i);
    with w do
      writeln(i:3, w.tovar:15, w.mag:10, w.stoim:13);
  end;
  writeln('<br>');
  close(f);
  readln;
end;
 
procedure vibor;//***************Поиск по алфавиту**************
var
  m: integer; tv: string;
  ff: boolean;
begin
  clrscr;
  writeln('Поиск товаров по алфавиту');
  writeln('**************************');
  writeln;
  write('Ввести букву: ');
  readln(tv);
  clrscr;
  writeln('Поиск по алфавиту ', tv );
  writeln('****************************');
  writeln;
  m := 0;ff := true;
  writeln('<br>');
  writeln('  N   Товар       Магазин    Стоимость');
  writeln('<br>');
  for i := 1 to N do
    with spisok[i] do
      if tovar = tv then begin
        m := m + 1;
        ff := false;
        writeln(i:3, tovar:15, mag:10, stoim:13);
      end;
  if ff then begin writeln('Такой записи нет');readln; end;
  writeln('Поиск товаров закончен');
  readln;
end;
 
begin
  textbackground(1);
  textcolor(10);
  clrscr;
  repeat
    clrscr;
    Writeln('--------------ПОЛЬЗОВАТЕЛЬСКОЕ МЕНЮ------'  );
    writeln('-----------------------------------------');
    writeln('1. Создание массива записей с сортировкой');
    writeln('2. Просмотр массива записей');
    writeln('3. Выбор по алфавиту');
    writeln('4. Запись массива в файл');
    writeln('5. Выход');
    writeln('-----------------------------------------');
    write('Ваш выбор ');
    readln(k);
    case k of
      1: sozd;
      2: prosm;
      3: vibor;
      4: zapis;
      5: ;{выход}
    else begin
        writeln('нет такого пункта');
        readln;
      end;
    end;        // case
  until k = 5;
  writeln('Конец программы');
  readln;
end.

формализация и алгоритмизация графической задачи, ОШИБКА!

	20.12.2006 0:37 Сообщение #1
гений чегото Группа: Пользователи Сообщений: 108 Пол: Мужской Репутация:   -1	пишет ошибку операнды имеют неприводимые типы помогите Прикрепленные файлы  Program4.pas ( 174 байт ) Кол-во скачиваний: 255 ——————— ————- избранный…. но не в Паскале…..

мисс_граффити	20.12.2006 0:54 Сообщение #2
просто человек Группа: Пользователи Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация:   55	ругнулось на отсутствие ; доставила — все работает возможно, дело в компиляторе… поставь скобочки по-другому. типа так: if (x<=-p) then y:=a ——————— Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует. На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже «один-единственный раз» в виде исключения!

polic	20.12.2006 0:59 Сообщение #3
гений чегото Группа: Пользователи Сообщений: 108 Пол: Мужской Репутация:   -1	я короч не тот файл выставил просто этот был первоначально я его изменил забыл сохранить ща попробую этот исправить Прикрепленные файлы  Program4.pas ( 206 байт ) Кол-во скачиваний: 290 ——————— ————- избранный…. но не в Паскале…..

volvo	20.12.2006 1:04 Сообщение #4
Гость	Двойное сравнение делать нельзя… Надо объединять 2 одинарных And-ом Кстати, может ты мне все-таки объяснишь, при чем здесь ГРАФИЧЕСКАЯ задача?

polic	20.12.2006 1:07 Сообщение #5
гений чегото Группа: Пользователи Сообщений: 108 Пол: Мужской Репутация:   -1	я делал типа формулы эти (y:=x-p) по графику и чото я не понимаю то что ты сказал Надо объединять 2 одинарных And-ом это как мож показать? ——————— ————- избранный…. но не в Паскале…..

мисс_граффити	20.12.2006 1:35 Сообщение #6
просто человек Группа: Пользователи Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация:   55	if (0)<x<(p) then а надо if (0<x) and (x<p) then зачем ты так странно ставишь скобки? ——————— Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует. На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже «один-единственный раз» в виде исключения!

polic	20.12.2006 21:31 Сообщение #7
гений чегото Группа: Пользователи Сообщений: 108 Пол: Мужской Репутация:   -1	мисс графити дастиш фантастиш ——————— ————- избранный…. но не в Паскале…..

Связь с администрацией: bu_gen в домене octagram.name

Выдаёт ошибку:операнды имеют неприводимые типы.Где я ошиблась?(Программа написана на языке Pascal ABC)

Program Home;

Uses CRT;

Var a: integer;

b: real;

Begin

WriteLn (‘Введите еденицу измереня: килограмм, миллиграмм, грамм, тонна, центнер’);

ReadLn (a);

WriteLn (‘Введите число, которое нужно перевести в килограммы’);

ReadLn (b);

If (a = ‘килограмм’) then

WriteLn (b);

If (a = ‘миллиграмм’) then begin

b := b / 1000000;

WriteLn (b);

end;

If (a = ‘грамм’) then begin

b:= b / 1000;

WriteLn (b)

end;

If (a = ‘тонна’) then begin

b:= b * 1000;

WriteLn (b);

end;

If (a = ‘центнер’) then begin

b:= b * 100;

WriteLn (b);

end;

End.