Поиск в массиве записей

[Marfeys]

Program make;
type
a=record;
end;
var
name:String;
sname:string;
age:real;
tel:string;
d:array[1..10] of integer;
i:integer;
BEGIN
for i:=1 to 10 do
begin
 writeln('Введите имя',i);
 Readln(a.name[i]);
 writeln('Введите фамилию',i);
 readln(a.sname[i]);
 writeln('Введите возраст',i);
 readln(a,age[i]);
 writeln('Введите телефон',i);
 readln(a,tel[i]);
ebd;
for i:=1 to 10 do
begin
 writeln(a.name[i]);
 e:=10;
 for n:=1 to l-1 do
 for i:=1 to l-n do
 if d.age[i]<d.age[i+1]
 then
 begin
 for i:=1 to 10 do
 k:=d.age[i];
 d.age[i]:=d.age[i+1];
 d.age[i+1]:=k;

END.

//На вход даётся информация о человеке-его имя,фамилию,возраст,телефон.Програм ма должна вывести того человека,у которого наибольший возраст .
Где я сделал ошибку ?

[RUSt88]

как найти максимальный элемент массива знаешь? вот от этого и иди

[Sibedir]

Програм ма должна вывести того человека,у которого наибольший возраст

При чем здесь сортировка?

[Marfeys]

Я долго думал как назвать темку....хД
На строке Readln(a.name[i]); пишет что ожидалось имя класса...как эТО?

[Sibedir]

type
  a = record // Символ ";" не ставится после record
  end;

var
  name:String;
  sname:string;
  age:real;
  tel:string;
  d:array[1..10] of integer;
  i:integer;

Вы объявили тип а, как пустую запись. Что вы хотели этим сказать?

Думаю вы имели в виду это

type
  a = record
    name: String;
    sname: string;
    age: real;
    tel: string;
  end;

var
  d: array[1..10] of a;
  i: integer;

BEGIN
  for i:=1 to 10 do begin
    writeln('Введите имя',i);
    Readln(d[i].name);
    writeln('Введите фамилию',i);
    readln(d[i].sname);
    writeln('Введите возраст',i);
    readln(d[i].age);
    writeln('Введите телефон',i);
    readln(d[i].tel);
  end;

Далее идет полная каша. Так что давайте по порядку

P.S.:

Я долго думал как назвать темку....хД

Что "Поиск в массиве записей" - слишком сложно?

From Stilet: Это же дите, чего с него