Дан текстовый файл. Подсчитать количество символов в каждой строке — Pascal(Паскаль)

var
  f: text;
  s: string;
  k: integer;
 
begin
  assign(f, 'C:\Новый текстовый документ.txt');
  reset(f);
  k := 1; //Начинаем  с первой строки
  while not EOF(f) do
  begin
    readln(f, s);
    writeln(k, ' Строка имеет длину: ', length(s)); //length(s)-считывает количество символов в строке
    inc(k);
  end;
end.