Точки координат

[strannik23]

Дан набор светящихся точек разной яркости в трёхмерном пространстве. Определить координаты самой яркой точки.
Использоватьструктурный ти: массив записей. Исходные данные о точках должны быть введены в программу из текстового файла.
Как я понимаю тут нужно использовать типизированные файлы. А в блокноте записать точки, в виде x,y,z,s где x,y,z -координаты а s яркость точки, причём вбивать их в блокноте нужно в столбик, тобишь каждая точка на новой строке, немог ли бы вы помоь реализовать это в паскале

[Serge_Bliznykov]

1) типизированный файл здесь Вам не нужен.

2) остальное Вы всё более-менее правильно написали.

в чём у Вас затык возник?

начало программы может выглядеть примерно так:

type 
   TStars = record
      X,Y,Z : integer;
      s       : word;
   end;

const  
   MaxStars = 1000;

var
   Stars ; array[1..MaxStars] of  TStars;
   f : Text;
   i, QuantityStars, MostBrightIndex : integer;
begin
   Assign(f, 'AllStars.txt');
   Reset(f);

   QuantityStars := 0;    
   while Not eof(f) do begin
      inc(QuantityStars); 
      Readln(f, Stars[QuantityStars].X, Stars[QuantityStars].Y, Stars[QuantityStars].Z, Stars[QuantityStars].s);
   end;
   Close(f);

   if  QuantityStars<1 then WriteLn('Нет ни одной записи о точке')
   else begin
       {иначе найдём самую яркую}
       MostBrightIndex := 1; {считаем, что самая яркая первая точка}
       for i:=2 to QuantityStars do
          if Stars[i].s > Stars[MostBrightIndex].s then MostBrightIndex := i;
      
       WriteLn('Cамая яркая точка №',MostBrightIndex,' x =',Stars[MostBrightIndex].X,
              ' y =',Stars[MostBrightIndex].Y, ' z =',Stars[MostBrightIndex].Z, 
              ' яркость = ', Stars[MostBrightIndex].s);
   end; 

   Readln
end.

[veniside]

while Not eof(f) and (QuantityStars < MaxStars) do begin

[strannik23]

Ребята спасибо что помогаете, вот у меня ошибка в строчке:
Readln(f, Stars[QuantityStars].X, Stars[QuantityStars].Y, Stars[QuantityStars].Z, Stars[QuantityStars].s);
пишет Invalid numeric format.
что не так? компелирует без ошибок

[strannik23]

Извините затупил, исправил уже ошибку, спасибо большое за помошь)