График звездочками в массиве. Программа "График зависимости даты от температуры"

Program dtmrecord2;
 
 
uses sysutils;
 
type
  TZAP = record
  n: tdatetime;    //форматированная дата
  t: integer;      //температура
  end;
 
  Tf = file of TZAP;    //тф - это файл типа ТЗАП
 
var
  zap:TZAP;            //позволяет оперировать данными типа ТЗАП
  f:Tf;                //переменная файла
  i: integer;       //для сортировки
  sorted:boolean;
  num: tzap;
  A: array of tzap;
  d1,d2: string; //Спрос диапозона дат
  trd, temp:integer;
  dp: real;
  B: array [1..25,1..25] of char;
  max, min, {%H-}imax, {%H-}imin: integer;
  x,y: integer;
begin
 dateseparator{%H-}:= '.';
 assign(f,'d://f.dat');
 reset(f);           // открыть файл
 
 
//Отображаем на экране данные файла
writeln('Данные в файле');
 while not EoF(f) Do
  begin
   read(f,zap);
   writeln(DateToStr(zap.n),' - ',zap.t,'°C       ' ,trunc(zap.n));
  end;
 readln;
 close(f);
 
 
 //Записываем данные в массив
 reset(f);
  writeln('Считанные данные с файла');
  i:=0;
  While not EoF(f) do
   begin
    setlength(a, i+1);
    read(f,A[i]);
    writeln(Datetostr(a[i].n),' - ',a[i].t );
    inc(i);
   end;
 
  writeln('Количество элементов в массиве - ',i);
  readln;
 
 
 //Сортировка
 
 writeln('Отсортированные данные');
   repeat
     sorted:= true;
     for i:= 0 to length(A) do if a[i].n>a[i+1].n then begin
      num:=a[i];
      a[i]:=a[i+1];
      a[i+1]:=num;
      sorted:= false;
     end;
 
   until sorted;
 
 
 //Отображение отсортированных дат
 for i:= 2 to length(a)+1 do writeln(DateToStr(A[i].n),' - ', a[i].t,'°C');
 
 
 
 //Спрос диапозона дат
 Writeln;
 Writeln('Введите диапозон дат');
 write('Первая дата: ');
 readln(d1);
 write('Вторая дата: ');
 readln(d2);
 writeln('------------------------------');
 
 //Отображение дипозона дат
 Dp:= trunc(StrToDate(d2) - StrToDate(d1));
 writeln('Диапозон дат(ширина графика)  -  ', dp:0:0);
 writeln;
 
 //Отображение диапозона температур
 min:=a[2].t;
 max:=a[2].t;
 for i:=2 to length(a)+1 do
   begin
    if a[i].t<min then
      begin
       min:=a[i].t;
       imin:=i;
      end;
   end;
 writeln('Минимальная температура: ', min);
 
  for i:=2 to length(a)+1 do
   begin
    if a[i].t>max then
      begin
       max:=a[i].t;
       imax:=i;
      end;
   end;
 writeln('Максимальная температура: ', max);
 writeln('------------------------------------');
 Writeln('Диапозон температур(высота графика):', max,'-',min,'=',max-min);
 
 
 readln;
 trd:=trunc(StrToDate(d2)) - trunc(StrToDate(d1));
 temp:= max - min;
 writeln(trd,'x',temp);
 
 //заполняем пробелами наш массив
 for x:= 0 to trd do
  for y:= 0 to temp do begin
   b[x,y]:=' ';
   end;
 
 
 for x:= 0 to trd do begin
    y:=a[x].t - temp;
      b[x,y]:='*';
 end;
 
  readln;
 
 for x:= 0 to trd do begin
  writeln;
   for y:= 0 to temp do
     write(b[x,y]);
 
   end;
 
 
 close(f);
 readln;
end.

 y:=a[x].t - temp;

y:=a[x].t - min;

 y:=max-a[x].t;