Записи

[lilywka]

что у меня тут не так? она вроде бы работает, но как то не правильно

Заданные поля записи, определить их типы данных, написать программу для ввода произвольного количества записей через массив, инициализировать как типизированную константу. Вывести записи по указанному критерию на экран в форме, удобной для просмотра.
10. Рыба: название, длина, масса, глубина существования. Критерий: рыбы с глубины> 1000 м.

program Project2;

{$APPTYPE CONSOLE}
uses
  SysUtils,
  Windows;
type
  fish=record
  name:string;
  length:string;
  mass:string;
  depth_of_existence:integer;
end;
var
  List:array[1..500] of fish;
  i,n:integer;
begin
  SetconsoleCp(1251);
  SetConsoleOutputcp(1251);
  Writeln ('введите количество рыб');
  if (n<=500)
  then readln(n);
  for i:=1 to n do
  with list[i] do
begin
  Writeln('введите имя рыбы');
  readln (name);
  Writeln('введите длину рыбы');
  readln(length);
  Writeln('введите массу рыбы');
  readln(mass);
  Writeln('введите глубину сущесвования');
  readln(depth_of_existence);
  end;
  for i:=1 to n do
begin
  if list[i].depth_of_existence>1000 then
  begin
    write(list[i].name);
    write(list[i].length);
    Writeln(list[i].mass);
    Writeln(list[i].depth_of_existence);
  end;
end;
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Mad_Cat]

if (n<=500)
  then readln(n);

поменяйте на

repeat readln(n); until (n<=500) and (n>=1);

и

if list[i].depth_of_existence>1000 then
  begin
    write(list[i].name,' ');
    write(list[i].length,' ');
    Write(list[i].mass,' ');
    Writeln(list[i].depth_of_existence);
  end;

[lilywka]

а можете подсказать, как сделать типизированую константу?

[Mad_Cat]

пример

Type Point = Record
   X, Y : Real
End;

var Origin : Point = (X : 0.0; Y : 0.0); .

[Serge_Bliznykov]

const
   OdnaZapis : fish =
    ( name:'Форель'; length:'длинненькая';  mass:'тяжёлая';  depth_of_existence:50);

можно и константный массив таким же образом задать...

внимание! хочу Вас предостеречь от ошибки. Как только Вы захотите создать типизированный файл var f : file of fish; Вы тут же получите ОШИБКУ!
Дело в том, что в таком случае внутри типа record НЕЛЬЗЯ использовать типы данных неопредёлённой длины. А именно - string
нужно использовать ограниченные типы данных, например, string[50]

ну и ещё одно замечание. А почему длина рыбы и масса - это у Вас строковый тип данных? А если будет задание найти все рыбы тяжелее 20 кг - что, будете строчки парсить?! думаю, что длина и вес должны быть числовыми полями!