Выровнять текст по правому краю,добавив в начало непустой строки нужное количество пробелов

[f1x]

Дан текстовый файл,содержащий текст,выровненный по левуму краю. Выровнять текст по правому краю,добавив в начало непустой
строки нужное количество пробелов(ширину текста считать равной 50)

[s-andriano]

Неоптимально, зато академично:
while length(s) < 50 do insert(' ',s,1);

[Paster Fob]

Сообщение от s-andriano

Неоптимально, зато академично:
while length(s) < 50 do insert(' ',s,1);

или так:
while iength(s)<50 do s:=s+char(32);

[f1x]

Сообщение от Paster Fob

или так:
while iength(s)<50 do s:=s+char(32);

можно полностью код написать

[whatever]

Сообщение от Paster Fob

или так:
while iength(s)<50 do s:=s+char(32);

Ну тогда уж

while iength(s)<50 do s:=char(32)+s;

[Paster Fob]

Сообщение от whatever

Ну тогда уж

while iength(s)<50 do s:=char(32)+s;

ага,точно и в слове length и я и вы допустили ошибку

[whatever]

Сообщение от Paster Fob

ага,точно и в слове length и я и вы допустили ошибку

Настолько я код не проверял, ctrl+c, ctrl+v. Да и компилятор защитит от такого рода ошибок

[f1x]

Сообщение от Paster Fob

ага,точно и в слове length и я и вы допустили ошибку

напишите кто-нибудь полный код а не одну строчку

[Hacker19_90]

А вы часом не о**ели?
Вам показали принцип пишите, сами!
Собственно, нужен код, платите!
100 р на телефон, ася в профиле!

[TinMan]

И более академично, и наиболее оптимально, а заодно и короче:

  while not EoF(f) do begin
    readln(f,s);
    writeln(g,s:50);
  end;