Задача с текстовыим файлом

[kinash96]

необходимо Создать текстовый файл целых чисел . Поменять местами первую и последнюю компоненты .
я здесь начал

var f:System.Text; 
mas:array[0..3] of real; i:integer; st:string;

begin

//decimalseparator('.');

AssignFile(f,'file'); 
Rewrite(f); //
writeln(f,1.1:1:1);

writeln(f,3.1:1:1);

writeln(f,-3.12:1:2);

writeln(f,6.213:1:3);

for i:=0 to 3 do
begin
readln(f,st);
mas[i]:=strtofloat(st);
write(mas[i],' ');
end;
CloseFile(f);

Вот что смог сделать а дальше не знаю Заранее спасибо