Vienkāršākās darbības ar TEXT tipa failiem

Risinājuma principi
1.Nosakām programmai nepieciešamos mainīgos.
2.Ievada faila vārdu nosakām kā simbolu konstanti
CONST InpFileName='Lab1Inp.txt';
3.Izvada faila vārdu ievadīsim katru reizi izpildot programmu.
4.Saistām ievada un izvada loģiskos failus ar failiem uz diska.
5.Apstrādi veicam ieslēdzot izpildāmos operatorus WHILE tipa ciklā. Cikla ķermenī ievietosim failu apkalpošanas operatorus, simbolu rindas apstrādes operatorus un datu izvades operatorus procesa vizuālai kontrolei uz ekrāna.

while (not EOF (InpFile)) do
begin
readln(InpFile, InputString);
OutputString:=InputString;
writeln( OutputString);
len:=Length(InputString);
b:=len div 2;
if len > 50 then
begin…