Паскаль. Строковый тип. создать строку, длинной 500 элементов, с помощью типа записи

[sanji2010]

Здравствуйте, необходимо создать строку, длинной 500 элементов, с помощью типа записи. Помогите пожалуйста.

[ZX Spectrum-128]

Какое-то замысловатое задание. Только это в голову пришло.

Type
 String500=record
  Str1:string[250];
  Str2:string[250];
 End;

[sanji2010]

Да, это я знаю, что так, но как вывести строку из 500 элементов, созданную с помощью типа записи

[ZX Spectrum-128]

Var
 S:string500;
...
 Write(s.str1,s.str2);

?

[sanji2010]

Если не трудно, напишите пожалуйста код считывания с файла и вывода на экран (в файле 500 элементов)

[ZX Spectrum-128]

uses
  sysutils,math;
type
  string250=string[250];
  string500=record
    sleft,sright:string250;
  end;
var
  f:file of char;
  i:integer;
  str500:string500;
  ch:char;
begin
  {код для создания файла}
  assign(f,'500.chr');
  rewrite(f);
  for i:=1 to 500 do
    write(f,chr(randomrange(32,255)));
  close(f);
  {считывание из файла и вывод}
  reset(f);
  i:=1;
  while not eof(f) do
    begin
      read(f,ch);
      if i>250 then
        str500.sright:=str500.sright+ch
      else
        str500.sleft:=str500.sleft+ch;
      i:=i+1;
    end;
  close(f);
  writeln(str500.sleft,str500.sright);
  readln;
end.