Курсовая работа: Преломление света на границе раздела двух сред

SaveData(n,n1,alpha); {сохраняем данные}

end;

procedure Info;

var

f: Text;

n, i: Integer;

s, temp: String;

ch: Char;

priznak: Boolean;

const

st_length = 55;

ch_size = 20;

begin

n: = 0;

priznak: = false;

Assign(f, 'info. txt');

ClearViewPort;

SetTextStyle (1, 0, 1);

Reset (f);

while not Eof(f) do

begin

n: = n + 1;

if not priznak then ReadLn (f, s);

if Length(s) > st_length then

begin

priznak: = true;

temp: = s;

Delete (temp, st_length+1, Length(temp));

OutTextXY(0, ch_size * n, temp);