Паскаль. Вычислить эквивалент.

[Nexx]

Плохо разбираюсь в паскале, не могу сделать простейшие задачи, может вы мне поможете, только не смейтесь) Задача такая: Согласно бюллетеню Центробанка 100$ эквивалентны Т руб. Вычислить эквивалент 2,3,4...,N руб. в долларах. Буду очень благодарен если поможете.

[Alex21]

program Project2;
 
const
USD=100;//Trub
var T:real; //эквивалент рублей
    i,N:integer;
 
function f(i:integer;T:Real):Real;   // функция расчета руб в $
begin
  f:=i*(100/T);
end;
 
begin
  write('Введите эквивалент (в руб) 100$ = ');
  readln(T);
  Write('Сколько рублей считать? N = ');
  ReadLn(N);
  if N >0 then
  begin
  for i:=1 to N do
    begin
      Writeln(i,' руб = ',f(i,T):4:2,'$');//вывод результатов
    end;
  end
  else
  Writeln('Ошибочка');
    readln;
end.

[Nexx]

Спасибо за помощь =)