В массив вводят размеры n файлов (в байтах) от 100 до 9000. Преобразовать все значения превышающие 1024 байта в килобайты

var a:array[1..250] of string; size:real; i,n:integer; text:string; begin    writeln('daite N'); readln(n);    for i:=1 to n do      begin         readln(size);         if (size>1024) or (size=1024) then             begin                size:=size/1024;                str(size:0:2,text);                a[i]:=text+' kb';                text:=''; size:=0;             end else          begin               str(size,text); a[i]:=text+' bytes'; text:=''; size:=0;          end;       end;   for i:=1 to n do write(a[i],' '); readln; end.