Pascal ABC. Подредактировать программу.

[s7p]

Помогите, пожалуйста, сделать «красивым» вывод данных в табличной форме и доделать задание по подсчету количества людей, возраст которых не превышает заданного значения s.
Цена 300 рублей.
Желательно до завтра включительно.

Рекомендации (чтобы было проще понять то, что в принципе нужно доделать):
– сначала из поля с датой рождения A[i].dob нужно «вырезать» все элементы даты рождения (день, месяц, год) – воспользоваться функцией copy, НО это будут не числа, как нам нужно, а строки;
– для преобразования этих строк в числа воспользоваться процедурой val;
– вместо многоточия нужно вставить условие сравнения s и числа полных лет, которые исполнились человеку на текущую дату; для получения текущей даты воспользоваться функцией CurrentDateTime модуля Utils, который содержит различные процедуры и функции для работы с файлами и каталогами, с датой, и пр.;

функция имеет следующий тип:

type DateTime = record
Day, Month, Year, Hour, Minute, Second, Milliseconds: integer;
end;

Пример использования функции:

Uses Crt, Utils;
var x: DateTime;
begin
x:= CurrentDateTime;
writeln(‘Текущая дата: ’, x.Day, ‘.’, x.Month, ‘.’, x.Year);
end.

САМА ПРОГРАММА ДЛЯ ИСПРАВЛЕНИЯ:

program pr3;
uses crt;
const n=5;
type b = record
surname:string[20];
name:string[15];
patronymic:string[20];
dob:string[10];
address:string[50];
number:string[10];
end;
var f:file of b;
state:b;
a:array[1..n] of b;
i,l,s,c,d,count:integer;

begin
assign(f,'D:\Евгений');
rewrite(f);
for i:=1 to n do
begin writeln ('Запись ',i);
write('Фамилия: ');readln(state.surname);
write('Имя: ');readln(state.name);
write('Отчество: ');readln(state.patronymic);
write('Дата рождения: ');readln(state.dob);
write('Адрес: ');readln(state.address);
write('Телефон: ');readln(state.number);
write(f,state);
end;
close(f); }
reset(f);
writeln('Сведения для городской справочной службы');
writeln('______________________________________________________________________________');
writeln('| Фамилия | Имя | Отчество |Дата рождения| Адрес | Телефон |');
writeln('______________________________________________________________________________');
for i:=1 to filesize(f) do
begin read(f, A[i]);
writeln(A[i].surname:10,A[i].name:10,A[i].patronymic:10,A[i].dob:10,A[i].address:10,A[i].number:10);
end;
close(f);

Write('Введите возраст человека: '); Readln(s);
Count := 0;
for i:=1 to n do
begin ...
if ...<= s then Inc(Count);
end;
WriteLn('Возраст ', Count, ' человек не превышает значения ', s); }

for l:=1 to n-1 do
for i:=1 to n-l do
if A[i].surname > A[i+1].surname then
begin state:=A[i];
A[i]:=A[i+1];
A[i+1]:=state;
end;
writeln('Сведения отсортированные в алфавитном порядке фамилий');
writeln('______________________________________________________________________________');
writeln('| Фамилия | Имя | Отчество |Дата рождения| Адрес | Телефон |');
writeln('______________________________________________________________________________');
for i:=1 to n do
writeln(A[i].surname:10,A[i].name:10,A[i].patronymic:10,A[i].dob:10,A[i].address:10,A[i].number:10);

end.

[alexcoder]

s7p, обращайтесь e-mail: informatik101@mail.ru
Telegram: @alexcoder1
vk.com/alexcoder1
Наверно дороже.

[Larboss]

ТЗ, срок, бюджет: larbossfreelance@yandex.ru Метка: freelance Указывайте ссылку на тему форума.

[Arigato]

Сделаю. Пишите на почту, цену обговорим: